Question

Введено число X , если оно больше нуля, то вывести надпись положительно , иначе вывести надпись отрицательно 
для паскаля

Answer 1

program qq;
var x: real;
begin
readln (x);
if x>0 then writeln ('положительно')
else writeln ('отрицательно ');
end.