var f,s,x,z:real;
    t,i,m,k:integer;
 begin
  x:=0.1;
  for t:=1 to 7 do
   begin
    z:=1;
    repeat
     m:=1;
     while(m<=5) do
      begin
      s:=0;
      for i:=1 to m do
       begin
       s:=(i-1)/(i+1);
       f:=exp(1/7*ln(0.5*sqr(z)+exp(3*ln(x))+x*z)-s);
       k:=k+1;
       writeln(k:4,'. x =',x:4,' z =',z:4:1,' m =',m:2,' f = ',f:6:5);
       end;
      m:=m+1;
      end;
    z:=z+3.1;
    until(z>7.3);
   x:=x+0.4;
   end;
  end.