Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Program sign;
var i: integer;

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