Провести исследование бесконечного степенного ряда - 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 e=');
readln(e);
until e>0;
if e>=abs(2*x/(2*n-1)) then s:=2*x
else
 begin
  n:=1;
  t:=x;
  s:=t;
  while abs(t)>e do
   begin
    n:=n+1;
    t:=t*x*x;
    s:=s+t/(2*n-1);
   end;
 end;
s:=2*s;
writeln('Сумма=',s:0:6);
write('Аналитически Ln((1+x)/(1-x))=',ln((1+x)/(1-x)):0:6);
readln
end.

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

Ввод значений переменных x, e, t, s с помощью функции readln().
Проверка значения переменной x с помощью цикла repeat-until.
Проверка значения переменной e с помощью цикла repeat-until.
Проверка условия для определения значения переменной s.
Если условие выполняется, то значение переменной s равно 2*x.
Если условие не выполняется, то начинается цикл while для вычисления значения переменной s.
Внутри цикла происходит обновление значения переменной n и t.
Значение переменной s обновляется на каждой итерации цикла.
Вывод значения переменной s с помощью функции writeln().
Вывод значения функции Ln((1+x)/(1-x)) с помощью функции writeln().
Завершение программы с помощью функции readln().