Ребят кто шарит паскаль

Задание 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.