Даны два числа а, в, определить какое из чисел чётное. И вывести на экран (if)

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.