Алгоритм составления решения степенного ряда.

[xrenomx]

Всем здравствуйте.Необходимо решить степенной ряд(картинкa внизу):
при условии что x <> 0, a e>0.

Код программы на Паскале,в качестве контрольного примера х=2,е=3.

Как решить подобный ряд вручную? кто покажет алгоритм?
Заранее благодарен!

Код программы:

uses crt;
var k:integer;
    x,e,t,s:real;
begin
clrscr;
repeat
write('x<>0 x=');
readln(x);
until x<>0;
repeat
write('e>0 e=');
readln(e);
until e>0;
if e>=sqr(x/2)then s:=sqr(x/2){если очность больше нулевого члена}
else{иначе}
 begin
  k:=0;
  t:=sqr(x/2);{нулевой член ряда}
  s:=t;{начальная сумма}
  while abs(t)>e do{пока модуль очередного члена больше точности}
   begin
    k:=k+1;{увеличиваем счетчик}
    t:=-t*sqr(x/2)/sqr(k+1);{меняем знак, эомножааем на квадрат половины аргумента
                             делим на квадрат номера +1}
    s:=s+t;{прибавляем}
   end;
 end;
write('S=',s:0:5);
readln
end.

[xrenomx]

может кто помочь?