Const
 Eps=0.00001;
 Nmax=200;

Function S(z:real):Real;
var
 a,Sum:real;
 k:byte;
begin
 k:=0;
 a:=(Pi/2)/3*z*z*z;
 Sum:=a;
 Repeat
  Inc(k);
  a:=-a*Sqr(Pi/2)/(2*k)/(2*k+1)*(4*k-1)/(4*k+3)*Sqr(Sqr(z));
  Sum:=Sum+a;
 Until (Abs(a)<Eps) or (k>Nmax);
 S:=Sum;
end;

Var
 i:Byte;

Begin
 for i:=0 to 10 do
  writeln(0.5*i:3:1,S(0.5*i):12:3);
 Readln
End.