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

С каких пор 0 стал отрицательным числом?

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

//Pascal ABC.NET v3.1 сборка 1219Var n:integer;begin readln(n); if n>0 then writeln('Положительное'); if n<0 then writeln('Отрицательное'); if n=0 then writeln('0'); if n mod 2=0 then writeln('Чётное') else writeln('Нечётное');end.Пример ввода:1Пример вывода:ПоложительноеНечётное