ДАЮ 50 БАЛЛОВ
ПЯТОЕ ЗАДАНИЕ В ПРАКТИЧЕСКОЙ ЧАСТИ
выести две числа найти наибольшее четное число при наличии двух условий пишется например так

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.