var drob, i, j: integer;
  x, num1, sume_func, eps, d: double;
  f:text;

begin
     system.assign(f,'p.txt');
     system.Rewrite(f);
     x := 0.5;
     writeln(f,' Значение аргумента     ', '  Точность вычислений     ', '  Значение функции     ', '  Число итераций    ');
     for i := 1 to 20 do begin {For для количества зачений их всего 10 у меня}
       num1 := ln(x);  {Тут твоя встроенная функция}
       eps := 1;
       for j := 1 to 6 do begin {Это точость мы увеличиваем}
         eps /= 10; {Это точность}
         drob := 1; {У меня в функции это 1/3, 1/5 и тд}
         d := (x-1)/(x+1); {ЭТО дробь}
         sume_func := 0;
         while num1 - 2*sume_func > eps do begin
               sume_func := sume_func + d/drob;
               drob += 2;
               d *= ((x-1)*(x-1))/((x+1)*(x+1));
         end;
         writeln(f, x, ' ', eps, ' ', 2* sume_func,'     ',  (drob+1) div 2 );
       end;
       x += 0.5;
     end;
     system.close(f);
  end.