Напишите программу,которая определяет знак числа

Question

Напишите программу,которая определяет знак числа

Answer 1

Program num1;
var a : real;
begin
writeln ('vvod chisla');
readln (a);
if a > 0 then writeln ('+') 
else writeln ('-');
end.