Ответ:

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.