Напишите программу которая определяет четность введенного числа.

program zz1;

var n:integer; / / вводим переменную целого типа

begin

write (' введите число '); / / вводим с клавиатуры число

read (n);

if n mod 2 = 0 / / проверяем условие, если введенное число делится на два без остатка, то

then write (' число четное ') / / выводим один ответ

else write (' число не четное '); / / выводим другой ответ

end.