Составить программу,которая проверяет, является ли число введённое с клавиатуры положительным нулю или отрицательным
Program abc; var x: integer; begin read(x); if (x>0) then write('Положительно') if (x=0) then write('Равно нулю') if (x<0) then write('Отрицательно')<br>end.