Написать Программу по PASCAL вычислить произведение нечетных цифр трехзначного числа. Если нет в цифре нет нечетных то ответ выводиться- 0ПРОШУ БЫСТРЕЕ ДАЮ МНОГО поинтов

var a,b,c,d,s: integer;

begin

s:=0;

writeln('введите число');

readln(a);

b:=a div 100;

c:=(a div 10) mod 10;

d:=a mod 10;

if b mod 2 =1 then s:=b;

if c mod 2 =1 then s:=s*c;

if d mod 2=1 then s:=s*d;

writeln(s);

end.