Напишите программки,для Паскаля .1. Дано число Х. Определить положительное число или

1.
var x:integer;
begin
readln(x);
if xgt;0 then writeln(x,' - положительное')
 else if xlt;0 then writeln(x,' - отрицательное')
  else writeln(x,' = 0');
end.

Пример:
-125
-125 - отрицательное

2.
var x,y,z,k:integer;
begin
readln(x,y,z);
if xgt;0 then k:=k+1;
if ygt;0 then k:=k+1;
if zgt;0 then k:=k+1;
writeln('количество положительных чисел = ',k);
end.

Пример:
-125 84 67
количество положительных чисел = 2

3.
var x:integer;
begin
readln(x);
if x mod 2=0 then writeln(x,' - чётное')
 else writeln(x,' - нечётное');
end.

Пример:
125
125 - нечётное

Program task1;
var n: real;
begin:
read(n);
if n gt; 0 then
writeln('Положительное');
if n lt; 0 then
write('Отрицательное');
end.

programm task2;
var a, b, c, positives: integer;
begin:
if a gt; 0 then
positives:=positives+1;
if b gt; 0 then
positives:=positives+1;
if c gt; 0 then
positives:=positives+1;
writeln('Положительных: ', positives);
end.

program task3;
var n: integer;
begin:
read(n);
if (n mod 2) gt; 0 then
writeln('Не чётное');
else
writeln('Чётное');
end.