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

1

Ответы и объяснения

2014-02-05T15:44:57+04:00

var a: integer;

begin

read(a);

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

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

end.