Question

Ввести два числа, если они оба четные, найти наибольшее из них. Pascal

Answer 1

var a,b:integer; 
begin
writeln('Введите два числа');
readln(a,b);if (a mod 2=0) and (b mod 2 =0) then
if a>b then write(a) else write (b)
end.

Answer 2

спасибо огромное☺️

Answer 3

пожалуйста