Var
A: integer;
Begin
Write('Введите любое число:'); Readln(A);
If A<0 then Write('Отрицательное число') else Write('Положительное');
Readln;
End.
Объяснение:
