Question

является ли число отрицательным
Program
___ x:real
Begin
Writeln (введите число х)
Readln (__)
If__ then writeln (‘число отриц’) Else writeln (‘__’)