13)
Var
x:integer;
Begin
Readln(x);
If x<0 then
Write('y=-1') end;
If x=0 then
Write('y=0') end;
if x>0 then
Write('y=1') end;
End.
