Найти сумму ряда

[xdozorx]

Найти сумму ряда An=2^n * n! / (2n)!
Точность вычесления l An+1 - An l <= 0.001
Вот что получилось но, не правильно работает. Помогите плиз исправить
program prl;
uses crt;
var
n:integer;
f,a1,a2,sum:real;
begin
clrscr;
writeln ('n');
readln (n);
f:=1;
a1:=1;
a2:=exp (2* ln (n))*f/2*f;
sum:=a1;
while abs (a1-a2) <= 0.001 do
begin
sum:=sum+a2;
a1:=a2;
a2:=a2/2*f;
end;
writeln ('sum:=',sum);
readln;
end.

[RUSt88]

обращайтесь, выполню за вознаграждение