Const
 An=0.3;
 Ak=0.7;
 Xn=0.1;
 Xk=0.2;
 m=3;
 n=2;

Var
 i,j:byte;
 W,Ha,Hx,a,x:real;

Function ArcCos(X:real):real;
begin
 if X=1 then ArcCos:=0 else
 if X=-1 then ArcCos:=Pi else
 ArcCos:=(Pi/2)-ArcTan(X/SQRT(1-X*X));
end;

Function Max(g1,g2:real):real;
begin
 if g1>g2 then Max:=g1 else Max:=g2;
end;

Function F1(a1,x1:real):real;
begin
 F1:=ArcTan(a1*x1)*3;
end;

Function F2(a2,x2:real):real;
begin
 F2:=Sqrt(Sqr(a2)+Sqr(x2));
end;

Function F3(a3,x3:real):real;
begin
 F3:=ArcCos(a3+x3/10);
end;

Begin
 Ha:=(Ak-An)/m;
 Hx:=(Xk-Xn)/n;
 Write('       ');
 For j:=0 to m do Write('   a=',(An+Ha*j):5:3);
 Writeln;
 For i:=0 to n do
  begin
   Write('x=',(Xn+Hx*i):5:3);
   For j:=0 to m do
    begin
     a:=An+Ha*j;
     x:=Xn+Hx*i;
     W:=Max(Max(F1(a,x),F2(a,x)),F3(a,x));
     Write('   W=',W:5:3);
    end;
   Writeln;
  end;
 Readln
End.