Вычислить значение функции - Pascal ABC (13491)

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

Привет , подскажите пожалуйста , как будет правильнее посчитать данную функцию интересует , как решить вопрос со степенями , факториал я выполнил в виде отдельной функции. Как быть со степенями , функция power не подходит. эту функцию необходимо посчитать от 0.1 до 1 с шагом 0.1

Решение задачи: «Вычислить значение функции»

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

e:=0.0001;
n:=0;
t:=x;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/(2*n)/(2*n+1);//увеличиваем степень на х^2, делим на 2*3, 3*4,4*5... получаем (2*n+1)!
  s:=s+t;
 end;

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

Переменная e инициализируется значением 0.0001.
Переменная n инициализируется значением 0.
Переменная t инициализируется значением x.
Переменная s инициализируется значением t.
Запускается цикл while, который будет выполняться до тех пор, пока абсолютное значение переменной t больше значения e.
Внутри цикла переменная n увеличивается на 1.
Переменная t вычисляется как -txx/(2n)/(2n+1). Здесь мы увеличиваем степень переменной t на x^2, делим на 23, 34,45... и получаем (2n+1)!
Значение переменной s увеличивается на сумму значений переменных t и s.
Цикл while повторяется, пока условие abs(t)>e не выполнится.
После выхода из цикла переменные n, t и s содержат свои окончательные значения.