var
i,a, cmax: integer
begin
cmax:= -999;
for i:= 1 to 2 do
readln (a);
if (a mod 2=0) and (a> сmax) then
cmax:= a;
End;
if cmax <> -999 then write (cmax)
Else write ('четные числа отсутствуют')
end.
var
i,a, cmax: integer
begin
cmax:= -999;
for i:= 1 to 2 do
begin
readln (a);
if (a mod 2=0) and (a> сmax) then
cmax:= a;
End;
if cmax <> -999 then write (cmax)
Else write ('четные числа отсутствуют')
end.