program laba3;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Math;

var x,f1,f2,St,Sl_2,Sl_3,Sl,a,Eps:Real;
       i,j,y,znak,k,N:Integer;
begin
  x:=-0.6;
  f1:=0;
  Write(#201);
for i := 1 to 6 do Write(#205);
Write(#203);
for i := 1 to 12 do Write(#205);
Write(#203);
for i := 1 to 19 do Write(#205);
Write(#203);
for i := 1 to 19 do Write(#205);
Write(#203);
for i := 1 to 19 do Write(#205);
Write(#187);
Writeln;
Writeln(#186,'  x   ',#186,'    f1(x)   ',#186,'     Eps=10^(-4)   ',#186,'     Eps=10^(-5)   ',#186,'     Eps=10^(-6)   ',#186);
Write(#186);
for i:=1 to 6 do write(' ');
Write(#186);
for i:=1 to 12 do write(' ');
Write(#204);
for i:=1 to 12 do write(#205);
Write(#203);
for i:=1 to 6 do write(#205);
Write(#206);
for i:=1 to 12 do write(#205);
Write(#203);
for i:=1 to 6 do write(#205);
Write(#206);
for i:=1 to 12 do write(#205);
Write(#203);
for i:=1 to 6 do write(#205);
Write(#185);
Writeln;
Writeln(#186,'      ',#186,'            ',#186,'    f2(x)   ',#186,'  N   ',#186,'    f2(x)   ',#186,'  N   ',#186,'    f2(x)   ',#186,'  N   ',#186);
Write(#204);
for i:=1 to 6 do write(#205);
Write(#206);
for i:=1 to 12 do write(#205);
Write(#206);
for i:=1 to 12 do write(#205);
Write(#206);
for i:=1 to 6 do write(#205);
Write(#206);
for i:=1 to 12 do write(#205);
Write(#206);
for i:=1 to 6 do write(#205);
Write(#206);
for i:=1 to 12 do write(#205);
Write(#206);
for i:=1 to 6 do write(#205);
Write(#185);
  for y:=1 to 20 do
  begin
    a:=Power(Ln(1+x),3);
    Writeln;
    Write(#186,x:5:2,' ');
    f1:=1/6*a;
    Write(#186,' ',f1:10:7,' ');
    N:=0;
    Eps:=0.0001;
     St:=Power(x,2);
     k:=1;
     f2:=0;
     Sl_2:=0;
     Sl_3:=0;
     znak:=1;
     for j:=1 to 3 do
     begin
      repeat
       St:=St*x;
       Sl_3:=Sl_3 + 1/k;
       Sl_2:=Sl_2 + (1/(k+1))*Sl_3;
       Sl:=(znak*St/(k+2))*Sl_2;
       f2:=f2 + Sl;
       znak:=znak*(-1);
       k:=k+1;
       N:=N+1;
      until Abs(Sl)<=Eps;
      if j=3
        then Write(#186,' ',f2:10:7,' ',#186,n:6,#186)
        else Write(#186,' ',f2:10:7,' ',#186,n:6);
      Eps:=Eps/10;
     end;
      x:=x+0.05;
      if y=20 then
      begin
        Writeln;
       Write(#200);
for i:=1 to 6 do write(#205);
Write(#202);
for i:=1 to 12 do write(#205);
Write(#202);
for i:=1 to 12 do write(#205);
Write(#202);
for i:=1 to 6 do write(#205);
Write(#202);
for i:=1 to 12 do write(#205);
Write(#202);
for i:=1 to 6 do write(#205);
Write(#202);
for i:=1 to 12 do write(#205);
Write(#202);
for i:=1 to 6 do write(#205);
write(#188);
      end
 else
      begin
        Writeln;
        Write(#204);
for i:=1 to 6 do write(#205);
Write(#206);
for i:=1 to 12 do write(#205);
Write(#206);
for i:=1 to 12 do write(#205);
Write(#206);
for i:=1 to 6 do write(#205);
Write(#206);
for i:=1 to 12 do write(#205);
Write(#206);
for i:=1 to 6 do write(#205);
Write(#206);
for i:=1 to 12 do write(#205);
Write(#206);
for i:=1 to 6 do write(#205);
Write(#185);
      end;
  end;
  Readln;
end.