Решение уравнения - Pascal ABC (13467)

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

Написать программу (желательно с циклами и функциями) для решения уравнения. За начало брать x=0,1

Решение задачи: «Решение уравнения»

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

var x,e,t,s:real;
    n:integer;
begin
repeat
write('Введите }x}>1 x=');
readln(x);
until abs(x)>1;
e:=0.0001;
n:=0;
t:=1/x;
s:=t;
while abs(t)/(2*n+1) >e do
 begin
  n:=n+1;
  t:=t*(2*n-1)/x/x/2/n;
  s:=s+t/(2*n+1);
 end;
write('s=',s:0:4);
end.

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

Создается переменная x типа real и присваивается значение 0.0001.
Создается переменная e типа real и присваивается значение 0.0001.
Создается переменная n типа integer и присваивается значение 0.
Создается переменная t типа real и присваивается значение 1/x, где x - значение переменной x.
Создается переменная s типа real и присваивается значение t.
Запускается цикл while, который выполняется до тех пор, пока abs(t)/(2*n+1) больше e.
Внутри цикла переменная n увеличивается на единицу.
Переменная t пересчитывается как t*(2*n-1)/x/x/2/n.
Переменная s пересчитывается как s+t/(2*n+1).
После выхода из цикла значение переменной s записывается в файл.
Конец программы.