Question

Написать на Паскале программу, выводящую на экран
-1, если введённое число X отрицательное,
0 – если число X=0,
1, если число X положительное.

Answer 1

===== PascalABc.NET =====

begin

   Sign(ReadReal).Print

end.