Написать прогу на паскале!

Дан числовой ряд и некоторое малое число e (например, e=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному e. Общий член ряда имеет вид: An=n! / (2n) !

var fac1, fac2, sum, an, e:real;

i, j:integer;

begin

readln (e) ;

an:=0.5;

fac1:=1;

fac2:=1;

i:=1;

while an>=e do begin

inc (i) ;

sum:=an+sum;

for j:=1 to i do fac1:=j*fac1;

for j:=1 to 2*i do fac2:=j*fac2;

an:=fac1/fac2;

end;

writeln (sum) ;

end.