Составить программу,которая проверяет, является ли число введённое с клавиатуры положительным нулю или отрицательным

program abc;

var x: integer;

begin
read(x);
if (x>0) then write('Положительно')
if (x=0) then write('Равно нулю')
if (x<0) then write('Отрицательно')
end.