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

Program tak;

var a, b, c, d:integer;

begin writeln ('введите пятизначное число ');

readln (a);

d:=1;

while (a0) do

begin

b:=a mod 10;

if (b mod 2 0) then

d:=d*b;

a:=a div 10;

end;

writeln (d);

end.

Var ab, sum: integer;

a: array[1 ... 5] of integer;

begin

readln (ab);

a[1]: = ab div 10000;

a[2]: = ab mod 10000 div 1000;

a[3]: = ab mod 1000 div 100;

a[4]: = ab mod 100 div 10;

a[5]: = ab mod 10;

for i: integer: = 1 to 5 do

if a[i] mod 2 = 1

then sum+=a[i];

writeln (sum);

end.