Question

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

Answer 1

var a: integer;

begin

read(a);

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

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

end.