Определить является ли целое число N четным. Использовать оператор mod-остаток от деления

var

a : integer; / /объявляем переменную

begin

writeln ('Введите число:'); / / выводим строку на экран

readln (a); / / считываем введенное с клавиатуры число

if (a mod 2 = 0) then / / проверяем четность числа, вычисляя остаток от деления на 2

writeln ('Число ', a, ' является четным') / / выводим строку на экран

else

writeln ('Число ', a, ' является нечетным') / / выводим строку на экран

end.