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

// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!

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

Пример
64372 40269
3.000