Var
 x:Real;

Function Tan(z:real):real;
begin
 Tan:=Sin(z)/Cos(z);
end;

Function Y(z:real):real;
begin
 Y:=(z*Sqr(Sqr(z))+Exp(-2.0*Abs(z)))/Sqrt(Sqrt(9.0-Sqr(z)))*
    Tan(Sqr(Cos(z)))*Sqr(Tan(Sqr(Cos(z))));
end;

Function F(z:real):Integer;
begin
 if z>0 then F:=1
 else
 if z<0 then F:=-1
 else F:=0;
end;

Begin
 Repeat
  Write('x= ');
  Readln(x);
  If Abs(x)>3 then Writeln('Incorrect: x must be between -3 and +3');
 Until Abs(x)<=3;
 Writeln('Y= ',Y(x):0:3);
 Writeln('F= ',F(Y(x)));
 Readln
End.