Вычисление функции с помощью разложения в степенной ряд - Pascal

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

Составить программу для вычисления значения функции y=ln(1-x) с помощью разложения функции в степенной ряд: Ln(1-x) =-x/1-(x)^2/2-(x)^3/3-(x)^4/4...-(x)^n/n+... Помогите пжл.

Решение задачи: «Вычисление функции с помощью разложения в степенной ряд»

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

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 [10^-6..10^-4] e=');
readln(e);
until(e>=0.000001)and(e<=0.0001);
n:=1;
t:=x;
s:=-t;
while abs(t)/n>e do
 begin
  n:=n+1;
  t:=t*x;
  s:=s-t/n;
 end;
writeln('S=',s:0:6);
write('ln(1-x)=',ln(1-x):0:6);
readln
end.

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

Подключение модуля для работы с экраном:
- 'uses crt;'
Объявление переменных:
- 'var x, e, t, s: real;' - переменные для обработки вещественных чисел
- 'n: integer;' - переменная для обработки целых чисел
Очистка экрана:
- 'clrscr;'
Ввод и проверка значения переменной 'x':
- повторять пока не введено значение 'x' такое, что модуль 'x' меньше 1, такое, что:
- 'repeat'
  - 'write('|x|<1 x=');'
  - 'readln(x);'
- 'until abs(x) < 1;'
Ввод и проверка значения переменной 'e':
- повторять пока не введено значение 'e' в диапазоне от 10 в степени -6 до 10 в степени -4, такое что:
- 'repeat'
  - 'write('e [10^-6..10^-4] e=');'
  - 'readln(e);'
- 'until(e >= 0.000001) and (e <= 0.0001);'
Инициализация переменных:
- 'n := 1;' - установка значения переменной 'n' равным 1
- 't := x;' - присвоение переменной 't' значения 'x'
- 's := -t;' - присвоение переменной 's' отрицательного значения 't'
Цикл для вычисления разложения ряда и вычисление функции:
- 'while abs(t) / n > e do' - пока модуль 't/n' больше 'e' выполнять:
  - 'begin'
  - 'n := n + 1;' - увеличение значения 'n' на 1
  - 't := t * x;' - умножение 't' на 'x'
  - 's := s - t / n;' - вычитание от 's' значения 't/n'
  - 'end;'
Вывод результата:
- 'writeln('S=', s:0:6);' - вывод значения 's' с точностью до 6 знаков после запятой
- 'write('ln(1-x)=',ln(1-x):0:6);' - вывод результата вычисления натурального логарифма функции 'ln(1-x)' с точностью до 6 знаков после запятой
Ожидание ввода:
- 'readln' - ожидание ввода пользователя
Конец программы.