var a, max, i: integer;begin repeat readln(a); if(a > max) and (a mod 2 = 0) then max := a; inc(i); until(i = 6); writeln('Макс. четное число: ', max);end.
var
a, max, i: integer;
begin
repeat
readln(a);
if(a > max) and (a mod 2 = 0) then max := a;
inc(i);
until(i = 6);
writeln('Макс. четное число: ', max);
end.