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

var
   n : integer; // объявляем переменную целочисленного типа.
begin
  writeln(Введите одно число: ); // выводим на экран строку.
  readln(n); // считываем значение, введенное с клавиатуры.
   if n = 0 then  // если введен 0.
     writeln(Нажата цифра 0); // выводим на экран строчку.
   if n gt; 10 then // если введено число gt; 10.
     writeln(Нажата цифра больше 10); // выводим на экран строчку.
   if ((n lt;gt; 0) and (n mod 2 = 0) and (n lt;= 10)) then // если число четное и не равно 0, и lt; 11.
     writeln(Нажатая цифра - четная ); // выводим на экран строчку.
   if ((n mod 2 gt; 0) and (n lt;= 10)) then // если число нечетное и lt; 11.
     writeln(Нажатая цифра - нечетная ); // выводим на экран строчку.
end.