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