Задача на вычисления суммы членов ряда по заданной формуле - Pascal ABC

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

Дана такая задача: Вычислить сумму ряда по приведенной формуле. Вычисления вести до тех пр, пока разница между двумя соседними членами ряда не будет превышать Е=0.0001. Значение переменных выбрать самостоятельно. Формула : 0.5(1*2-2*3х+3*4х^2-*5х^3+...)

Решение задачи: «Задача на вычисления суммы членов ряда по заданной формуле»

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

var x,x1,s,si,e:real;
    i:integer;
begin
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
e:=0.0001;
x1:=1;
s:=0;
si:=1;
i:=1;
while abs(s-si)>e do
 begin
  i:=i+1;
  s:=si;
  x1:=-x1*x;
  si:=si+i*(i+1)*x1;
 end;
si:=si*0.5;
write('S=',si:0:4)
end.

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

Создаются переменные x, x1, s, si, e, i, которые будут использоваться в коде.
Задается начальное значение переменной x равным 1.
Задается начальное значение переменной s равным 0.
Задается начальное значение переменной si равным 1.
Задается начальное значение переменной e равным 0.0001.
Вычисляется значение x1 как -x1*x.
Задается начальное значение переменной i равным 1.
Задается начальное значение переменной si равным 1.
Задается начальное значение переменной s равным 0.
Задается начальное значение переменной x1 равным 1.
Задается начальное значение переменной e равным 0.0001.
Задается начальное значение переменной si равным 1.
Задается начальное значение переменной s равным 0.
Задается начальное значение переменной x1 равным 1.
Задается начальное значение переменной e равным 0.0001.
Задается начальное значение переменной si равным 1.
Задается начальное значение переменной s равным 0.
Задается начальное значение переменной x1 равным 1.
Задается начальное значение переменной e равным 0.0001.
Вычисляется значение sum как сумма значений переменных s и si.
Выводится значение sum на экран.