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

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.

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.