Question

В математике функция sign(x) (знак числа) определена так: 
sign(x) = 1,   если x > 0, 
sign(x) = -1, если x < 0, 
sign(x) = 0,   если x = 0.

Для данного числа x выведите значение sign(x)

Answer 1

//PascalABC.NET версия 3.3.1590 от 03.12.2017//Если программа не запускается, то обновите версию
var
  x: integer;

begin
  readln(x);
  writeln(Sign(x));
end.