Составить программу, которая определяет четное число или нет? Программа генерирует случайное число с помощью Rаndom и выводит само число и фразу "чётное" или "нечётное".

program zz1;

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

begin

n:=random (21); / / записываем в переменную случайное число от нуля до двадцати

writeln (n); / / выводим полученное случайное число на экран

if n mod 2 = 0 then write (' четное ') else write (' нечетное '); / / проверяем условие, если случайное число делится на два без остатка, то выводим ответ 'четное', если не делится на два без остатка, то выводим ответ 'нечетное'

end.