Решить по информатике 8 класс (паскаль) 25 ! : ввести два числа. найти наибольшее четное число ( т.е использовать условии ) при наличии двух условий пишется, например так (a> and (a=

var a,b:integer;

begin

 readln(a,b);

 if(a mod 2 = 0) and (a > b) then

   writeln('Наибольшее, четное число: ',a)

 else begin

   if(b mod 2 = 0) and (b > a) then

     writeln('Наибольшее четное число: ',b)

   else

     writeln('Не найдено');

 end;

end.