Задачка на TP7

[Disel]

Помогите пожалуйста решить задачку. Дано X. Определить Y=сумма от n=2 до 14 [(X^(2n-2))/(2n+1)!]. Заранее благодарен.

[alex_fcsm]

var sum,x:real;
    i:integer;
    
function fun(n:integer):real;
var j,k:integer;
    res,res1:real;
begin
res:=1;
for i:=1 to 2*n-2 do
 res:=res*x;
res1:=1;
for k:=1 to 2*n+1 do
      res1:=res1*k;
fun:=res/res1;
end;
    
begin
readln(x);
sum:=0;
for i:=2 to 14 do
 sum:=sum+fun(i);
writeln(sum:10:4);
end.

[Disel]

Большое спасибо.