Напишите программу на языке Паскаль!С клавиатуры вводится три четырёх значных числа.

Var
  a, b, c, sum: integer;

function min(x, y: integer): integer;
begin
  if(x gt; y) then result := y
  else result := x;
end;
 
begin
  sum := 0;
  read(a, b, c);
  a := min(a, min(b, c));
  while a gt; 0 do
  begin
    if(a mod 10 mod 2 lt;gt; 0) then sum := sum + a mod 10;
    a := a div 10;
  end;
  write(sum);
end.