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

Question

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

Answer 1

Program sign;
var i: integer;

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