Question

Даны два числа а, в, определить какое из чисел чётное. И вывести на экран (if)
Помогите пожалуйста!

Answer 1

var
a, b:longint;
begin
read(a, b) ;
if ((a mod 2)=0) then
write(a)
else
write(b) ;
end.