program MyJob;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Math;

var
i,k,f:integer;
x,f1,f2,Bpred,z,eps,zacon,n:double;
begin
eps:=0.01;
x:=-0.6;
i:=1;


  for i:=1 to 20 do          //начало нахождения 20 знач
    begin
    f1:=(1/8)*((1-sqr(x))*ln((1-x)/(1+x))+2*(sqr(x)+1)*arctan(x));
    k:=0;
    f2:=((power(x,4*k+3))/((4*k+1)*(4*k+3)));
    n:=f2;
    write('X=',x:2:2);
    write(' ', 'f1=',f1:6:6);
    eps:=0.01;
    repeat
     repeat                                       //подсчет второй функции
      Bpred:=n;
      k:=k+1;
      zacon:=power(x,4)*((16*sqr(k)-16*k+3)/(16*sqr(k)+16*k+3));
      z:=Bpred*zacon;
      Bpred:=z;
      f2:=f2+z;
     until z<eps;
     write(' ','f2=',f2:6:6, ' ', 'N=',i);
     eps := eps * 0.1;
    until eps < 0.0001;
    writeln('');
   x:=x+0.05;
   end;

 readln;
end.