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

var   a, b, n: integer;   sr: real;  begin   sr := 0;   n := 0;   read(a, b);   if(a > b) then a := b;   while a > 0 do    begin     if((a mod 10) mod 2 = 0) then begin       sr := sr + a mod 10;       n := n + 1;     end;     a := a div 10;   end;   write(sr / n); end.