Program bulbul;

Const
 A=3.0;

Var
 i:integer;
 z,Step:double;

function Sum(x:double):double;
var
 S,B_old,B_new,Eps:double;
 N:Integer;
begin
 B_old:=x;
 S:=B_old;
 N:=0;
 Repeat
  Inc(N);
  B_new:=-B_old*x*x/(2*N*(2*N+1));
  S:=S+B_new;
  Eps:=Abs(B_old-B_new);
  B_old:=B_new;
 Until (1+Eps)=1;
 Sum:=S;
end;

Begin
 Step:=A/20;
 for i:=0 to 20 do
  begin
   z:=Step*i;
   Writeln(z:4:2,'    ',Sum(z),'    ',Sin(z));
  end;
 Readln;
End.