Склавиатуры вводится три четырехзначных числа найдите сумму нечетных чисел в наименьшем числе (paskal abc)

Var
  a, b, c, d, sum, m: integer;

begin
  read(a, b, c, d);
  m := min(min(a, b), min(c, d));
  while m > 0 do
  begin
    if m mod 2 = 1 then
      sum := sum + m mod 10;
    m := m div 10;
  end;
  writeln(sum)
end.