Напишите программу на паскалеА.выясните какие числа ввел юзер: положительное или

Какие числа или какое число?

какое число

//Pascal ABC.NET v3.1 сборка 1219

Var
 n:integer;
begin
 readln(n);
 if ngt;0 then writeln('Положительное');
 if nlt;0 then writeln('Отрицательное');
 if n=0 then writeln('0');
 if n mod 2=0 then writeln('Чётное') else writeln('Нечётное');
end.

Пример ввода:
1
Пример вывода:
Положительное
Нечётное

Var x:integer; 
begin 
writeln('Введите число'); 
readln(x); 
if xgt;0 then write('Число положительное и ') 
else write('Число отрицательное и '); 
if x mod 2=0 then write('четное.') 
else writeln('нечетное'); 
end.