Составить программу на языке Паскаль. Вводится вещественное число (причем ≠0), определить является это число положительным или отрицательным.
Ответ:
program w7w7;
var a:real;
begin
readln (a);
if a<0 then writeln ('otritsatelnoe chislo');</p>
if a>0 then writeln ('pologitelnoe chislo');
end.
Спасибо большое
угу)