Написать программу на языке Pascal Задано произвольное число. Проверить является ли оно четным.

var

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

begin

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

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

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

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

else / / если нечетное

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

end.