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

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

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