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

Языковая возможность писать короче. Пишешь короче - меньше возможность ошибиться.

спасибо вам большое за помощь

Пожалуйста, но достаточно кнопки "Спасибо" )))

уже нажал)

// 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 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 402693.000