Пользователь ввел число (х), которое по условию (х>0) больше 0, значит число положительное.
program z1;
var x:integer;
begin
write('Введите число ');
readln (x);
if x>0 then writeln ('Вы ввели положительное число')
else write ('Вы ввели отрицательное число')
end.
Объяснение:
Программы не учитывает 0. При вводе 0 будет выдано сообщение об отрицательности числа.
Вариант с 0:
program z1;
var x:integer;
begin
write('Введите число ');
readln (x);
if x>0 then write ('Вы ввели положительное число');
if x = 0 then write ('Вы ввели 0');
if x < 0 then write ('Вы ввели отрицательное число')
end.
