Напишите программу на языке Паскаль!

С клавиатуры вводится три четырёх значных числа. Найти сумму нечётных цифр в наименьшем числе.

Var

a, b, c, sum: integer;

function min (x, y: integer) : integer;

begin

if (x > y) then result : = y

else result : = x;

end;

begin

sum : = 0;

read (a, b, c) ;

a : = min (a, min (b, c)) ;

while a > 0 do

begin

if (a mod 10 mod 2 0) then sum : = sum + a mod 10;

a : = a div 10;

end;

write (sum) ;

end.