Вычислить ln - Pascal ABC

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

помогите сделать чёт вообще. мне нужно написать своё уравнение в коде я не знаю как.

Бесконечная сумма	Диапазон изменения	Выражение для проверки

uses crt;
var x,e,t,s:real;
    n:integer;
begin
clrscr;
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
repeat
write('e(0,1) e=');
readln(e);
until(e>0)and(e<1);
n:=0;
t:=1;
s:=t;
while 0>x>=2 do
 begin
  n:=n+1;
  t:=t*x;
  s:=s+t*cos(n*x);
 end;
writeln('S=',s:0:5,' n=',n);
write('Проверка=',(ln (x):0:5));
readln
end.

Решение задачи: «Вычислить ln»

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

uses crt;
var x,e,t,s:real;
    n:integer;
begin
clrscr;
repeat
write('0<x<=2 x=');
readln(x);
until (x>0)and(x<=2);
repeat
write('e(0,1) e=');
readln(e);
until(e>0)and(e<1);
n:=1;
t:=(x-1);
s:=t;
while abs(t)/n>e do
 begin
  n:=n+1;
  t:=-t*(x-1);
  s:=s+t/n;
 end;
writeln('S=',s:0:5,' n=',n);
write('Проверка=',ln(x):0:5);
readln
end.

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

Установка начального значения переменной x равным 0.
Установка начального значения переменной e равным 0.5.
Проверка на некорректный ввод данных (x <= 0 или x > 2).
Проверка на некорректный ввод данных (e <= 0 или e > 1).
Установка начального значения переменной n равным 1.
Вычисление значения переменной t как (x-1).
Вычисление значения переменной s как (t).
Цикл, который выполняется до тех пор, пока абсолютное значение переменной t не станет меньше чем e, деленное на n.
Увеличение значения переменной n на единицу внутри цикла.
Вычисление значения переменной t как -t*(x-1).
Вычисление значения переменной s как s + t/n.
Вывод значения переменной s с точностью до пятого знака после запятой.
Вывод значения переменной n.
Вычисление значения функции ln(x).
Вывод значения функции ln(x) с точностью до пятого знака после запятой.
Просьба ввести данные.
Конец программы.