Задание 1

1. program task31143737;
2. var x: integer;
3. begin
4.  x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
5.  if x mod 2 = 0 then
6.    Writeln('ЧИСЛО ', x, ' ЧЁТНОЕ')
7.  else
8.    Writeln('ЧИСЛО ', x, ' НЕЧЁТНОЕ');
9. end.

Задание 2

Здесь стоит ввести ограничение на ввод, т.к если пользователь введёт x (x >= 100), то программа укажет, что это тоже двузначное число.

1. program task31143737;
2. var x: integer;
3. begin
4.  x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
5.  if ((x > 9) or (x < -9)) then
6.    Writeln('ЧИСЛО ', x, ' ДВУЗНАЧНОЕ')
7.  else
8.    Writeln('ЧИСЛО ', x, ' ОДНОЗНАЧНОЕ');
9. end.