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