Определите,является ли данное число четным или нечетным ( написать в pascal )

Question

Определите,является ли данное число четным или нечетным ( написать в pascal )

Answer 1

var a: integer;

begin

read(a);

if a mod 2 = 0 then write ('Чётное')

else write ('Нечётное');

end.