Численно убедиться в справедливости равенства - Turbo Pascal

Формулировка задачи:

Помогите пожалуйста с вот этим заданием. На паскале. Спасибо.

(Фотография текста заменена текстом)Численно убедиться в справедливости равенства, для чего для заданного значения аргумента x вычислить левую его часть и разложение, стоящее в правой части, с заданной погрешностью ε. Испытать разложение на сходимость при разных значениях аргумента, оценить скорость сходимости, для чего вывести число итераций n, необходимых для достижения заданной точности.

Решение задачи: «Численно убедиться в справедливости равенства»

Листинг программы

uses crt;
var x,e,z,t,s:real;
    n:integer;
begin
clrscr;
repeat
write('x>0 x=');
readln(x);
until x>0;
repeat
write('e>0 e=');
readln(e);
until e>0;
z:=(x-1)/(x+1);
n:=1;
t:=z;
s:=z;
while abs(t)/(2*n-1)>e do
 begin
  n:=n+1;
  t:=t*z*z;
  s:=s+t/(2*n-1);
 end;
s:=2*s;
writeln('s=',s:0:4);
write('ln(x)=',ln(x):0:4);
readln
end.

Объяснение кода листинга программы

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Объявляет переменные x, e, z, t, s как real числа.
Задает переменную n как integer.
В цикле repeat-until запрашивает у пользователя ввести значение x и сохраняет его в переменной x.
В цикле repeat-until запрашивает у пользователя ввести значение e и сохраняет его в переменной e.
Вычисляет значение z как (x-1)/(x+1).
Инициализирует переменные n, t и s как 1, 0 и 0 соответственно.
В цикле while повторяет следующие действия:
- Увеличивает значение n на 1.
- Вычисляет значение t как произведение z и z.
- Вычисляет значение s как сумму произведения t и (2n-1)/(2n-1).
- Если abs(t)/(2*n-1) больше e, то повторно запускает цикл.
Увеличивает значение s до 2*s.
Выводит значения переменных x, e, z, t, s и ln(x) в консоль.
Ждет ввода пользователя перед завершением программы.