ряд

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.