Напишите программы,для Паскаля .

1.​ Дано число Х. Определить положительное число или отрицательное .

2.​ Даны три целых числа. Определить количество положительных чисел.

3.​ Дано число Х. Определить чётное число или нечётное.

1.var x:integer;beginreadln(x);if x>0 then writeln(x,' - положительное') else if x<0 then writeln(x,' - отрицательное')  else writeln(x,' = 0');end.Пример:-125-125 - отрицательное2.var x,y,z,k:integer;beginreadln(x,y,z);if x>0 then k:=k+1;if y>0 then k:=k+1;if z>0 then k:=k+1;writeln('количество положительных чисел = ',k);end.Пример:-125 84 67количество положительных чисел = 23.var x:integer;beginreadln(x);if x mod 2=0 then writeln(x,' - чётное') else writeln(x,' - нечётное');end.Пример:125125 - нечётное

program task1;var n: real;begin:read(n);if n > 0 thenwriteln('Положительное');if n < 0 thenwrite('Отрицательное');end.programm task2;var a, b, c, positives: integer;begin:if a > 0 thenpositives:=positives+1;if b > 0 thenpositives:=positives+1;if c > 0 thenpositives:=positives+1;writeln('Положительных: ', positives);end.program task3;var n: integer;begin:read(n);if (n mod 2) > 0 thenwriteln('Не чётное');elsewriteln('Чётное');end.