Задано целое положительное число. Найдите произведение нечетных цифр числа. Если таких цифр нет, то вывести об этом сообщение

Var n, p:integer; f:boolean;

begin

write ('n = ') ;

readln (n) ;

p:=1;

f:=false;

while n>0 do

begin

if n mod 2=1

then begin p:=p * (n mod 10) ; f:=true; end;

n:=n div 10;

end;

if f then writeln ('p = ', p) else writeln ('В числе нет нечетных цифр') ;

end.

Пример:

n = 14538

p = 15