Напишите программу, которая будет считывать значение вещественной переменной x и выдавать значение следующей функции от x: sign(x)= −1x0; 0x=0; 1x0

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017

begin
  Writeln(Sign(ReadReal))
end.