Пользователь вводит с клавиатуры числа. Программа
проверяет положительное число или отрицательное
и сообщает пользователю об этом. Программа
заканчивает свою работу, когда пользователь вводит
0.
Программа кумир

Если это надо на паскале:

var x:real; //мало ли будет нецелое число)))

begin  

 writeln('Введите x...');

 read(x);

 if x>0 then writeln('Число положительное.')

 else if x<0 then writeln('Число отрицательное.');

end.