Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

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

begin
  Writeln(Sign(ReadReal))
end.