Склавиатуры вводится число, определите положительное оно или отрицательное. решить )

Program sign;
var i: integer;

begin
write('Введите число: ');
readln(i);
if i>0 then writeln('Было введено положительное число')
else writeln('Было введено отрицательное число');
end.