Дано шестизначное целое число 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.