Введите с клавиатуры 5 значное число и посчитайте произведение нечетных цифр числа

Возьмём пятизначное число 38597, для начала найдём нечетные числа. Вот эти числа: 3,5,9,7. Теперь нужно найти их произведение. Произведение это умножение числа на другое (другие) числа (число). И так получается 3*5*9*7=945

program zz1;

var a, k, s:integer; / / задаем переменные целого типа

begin

write (' введите заданное пятизначное число '); / / вводим число с клавиатуры

read (k);

a:=1;

while k > 0 do / / организуем цикл, пока в числе есть цифры

begin

s:=k mod 10; / / получаем последнюю цифру

if s mod 2 = 1 then a:=a * s; / / проверяем цифру на нечетность и получаем произведение

k:=k div 10; / / отбрасываем ее из числа

end;

writeln (' произведение нечетных цифр пятизначного числа = ', a); / / выводим ответ

end.