ряд

program Zadanye_1;

var
  eps: real; // Точность вычисления
  x, f, s, a, delta: real;
  k: word;// Количество просуммированных членов

begin
  Write('Введите значение х>1/2: х = ');
  Readln(x);
  Write('Введите точность вычисления: eps = ');
  Readln(eps);
  writeln('--------------------------------------------');
  f := ln(x);
  Writeln('Истинное значение: f(', x, ')=', f:1:4);
  s := ((x-1)/x);
  k := 1;
  a := ((x-1)/x);
  repeat
    a *= (power((x - 1), k)) / ((power(x, k)) * k);  // новый член ряда
    s += a;    // накопление суммы ряда
    k += 1
  until abs(a) < eps;
  delta := abs(f - s);
  
  Writeln('Значение по формуле: f(', x, ') = ', s:1:4);
  Writeln('Погрешность вычисления = ', delta:1:4);
  Write('Количество просуммированных членов = ', k);
end.