function sign(x:integer):integer;beginif x>0 then sign:=1;if x=0 then sign:=0;if x<0 then sign:=-1;end;
var i:integer;beginreadln(i);writeln(sign(i));end.
Филимон ты тупица ха-ха-ха-ха
function sign(x:integer):integer;
begin
if x>0 then sign:=1;
if x=0 then sign:=0;
if x<0 then sign:=-1;
end;
var i:integer;
begin
readln(i);
writeln(sign(i));
end.
Филимон ты тупица ха-ха-ха-ха