Вопрос пользователя:
составьте программу, которая будет определять положительное или отрицательное введённое пользователем число. (программа турбо паскаль)
Илюха отвечает:
program w7w7;
var a:real;
begin
readln (a);
if a<0 then writeln (‘otritsatelnoe chislo’);
if a>0 then writeln (‘pologitelnoe chislo’);
end.