Var
 a,b:real;
 v:byte;

Function Lg(z:real):real;
begin
 Lg:=Ln(z)/Ln(10);
end;

Function Fi(x,y:real):real;
begin
 Fi:=(Cos(x)+Sin(y))/(x*Lg(x*y));
end;

Function Af(r:real):real;
begin
 Af:=0.87*Sqr(Sin(r*r*r));
end;

Begin
 Write('Input parameters: test values - 0, other - 1  ');
 Readln(v);
 If v=0 then
  begin
   b:=1.634;
   a:=Af(b);
   Writeln('a= ',a:0:5);
   Writeln('b= ',b:0:5);
  end
 else
  begin
   Write('a= ');
   Readln(a);
   Write('b= ');
   Readln(b);
  end;
 Writeln('Fi= ',Fi(a,b):0:5);
 Readln;
End.