Составить программу которая определяет какая из цифр: 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.