Составить программку, которая определяет четное число или нет? Программа генерирует случайное

program zz1;
var n:integer; // задаем переменную целого типа
begin
n:=random(21); // записываем в переменную случайное число от нуля до 20
writeln(n); // выводим приобретенное случайное число на экран
if n mod 2 = 0 then write( четное ) else write( нечетное ); // проверяем условие, если случайное число делится на два без остатка, то выводим ответ четное, если не делится на два без остатка, то выводим ответ нечетное
end.