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

Спасибо!)

var n,p:integer; f:boolean;beginwrite('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 = 14538p = 15