Program TuKpa6;
var
x:real;
BEGIN
writeln('BBeguTe x');
readln(x);
if x<0 then
  begin
    writeln(-1);
  end
else if x=0 then
  begin
    writeln(0);
  end
else
  begin
    writeln(1);
  end;
END.