Составить программу которая определяет какая из цифр: 0, чётная, нечетная, больше 10, нажата на клавиатуре (на паскале)

var

n : integer; / / объявляем переменную целочисленного типа.

begin

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

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

if n = 0 then / / если введен 0.

writeln ('Нажата цифра 0'); / / выводим на экран строку.

if n > 10 then / / если введено число > 10.

writeln ('Нажата цифра больше 10'); / / выводим на экран строку.

if ((n 0) and (n mod 2 = 0) and (n < = 10)) then / / если число четное и не равно 0, и < 11.

writeln ('Нажатая цифра - четная '); / / выводим на экран строку.

if ((n mod 2 > 0) and (n < = 10)) then / / если число нечетное и < 11.

writeln ('Нажатая цифра - нечетная '); / / выводим на экран строку.

end.