Дано шестизначное целое число N, в десятичной записи которого нет нулей. Определить, сколько раз встречается в числе цифра 2. Найти наибольшую четную цифру числа. Если в числе нет четных цифр, то сообщить об этом.

Program ryazantsev;

var k, max, a:integer;

n:int64;

begin

max:=0; k:=0;

readln (n) ;

while n 0 do begin

a:=n mod 10;

if a=2 then k:=k+1;

if (a mod 2 = 0) and (a>max) then max:=a;

n:=n div 10;

end;

writeln ('Количество двоек: ', k) ;

if max = 0 then writeln ('Четных чисел нет')

else writeln ('Наибольшее четное число: ', max)

end.