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

begin
  var a,b:integer; Read(a,b);
  a:=min(a,b);
  (var s,var k):=(0,0);
  while a>0 do begin
    b:=a mod 10;
    if b.IsEven then (s,k):=(s+b,k+1);
    a:=a div 10
    end;
  if k>0 then Writeln(s/k:0:3)
  else Writeln('В меньшем числе нет четных цифр')
end.


64372 40269
3.000