Function F(z:real):byte;
begin
 If ((z>-5) and (z<-2)) or ((z>2) and (z<5)) then F:=2 else F:=0;
end;

Begin
 Writeln('x= -3.7;   y= ',F(-3.7));
 Readln
End.

Var
 P:real;
 n,Num:byte;
Begin
 P:=1;
 Num:=0;
 for n:=1 to 10 do
  if Sin(Sqr(n))/Exp(Sqrt(n))<0 then
   begin
    Num:=Num+1;
    P:=P*Sin(Sqr(n))/Exp(Sqrt(n));
   end;
 Writeln('Num= ',Num);
 Writeln('P= ',P);
 Readln
End.

Const
 X:Array[1..6] of Real=(-5.2, 48.5, -24.51, -0.0025, -62.58, 48.2);
 b=0.248;
Var
 m:real;
 i:byte;
Begin
 m:=X[1];
 for i:=2 to 6 do
  if X[i]>m then m:=X[i];
 Writeln('a= ',b-m:0:5);
 Readln
End.