Const
 Xbeg=0.1;
 Xfin=0.3;
Var
 N,i,k:Integer;
 Dx,S,X,a:Real;

Function Tan(z:Real):Real;
begin
 Tan:=Sin(z)/Cos(z);
end;

Function Tan4(z:Real):Real;
begin
 Tan4:=SQR(SQR(Tan(z)));
end;

Function Ant(z:Real):Real;
begin
 Ant:=Tan(z)*Tan(z)*Tan(z)/3-Tan(z)+z;
end;


BEGIN
 Writeln('   N         Result      Accurate value');
 N:=5;
 For k:=1 to 7 do
  Begin
   N:=N*2;
   Dx:=(Xfin-Xbeg)/N;
   S:=0;
   For i:=1 to N do
    begin
     X:=Xbeg+DX*i;
     S:=S+Tan4(X)*Dx;
    end;
    WriteLn(N:5,S:16:8,(Ant(0.3)-Ant(0.1)):16:8);
  End;
 Readln
END.