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

От какого числа сборка?

Я без понятия

Школьный компьютер

Спасибо Огромное

Все работает

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.