Переполнение, Цикл...сумма элементов Опции

[Zundell]

Ниче не понимаю пачиму ошибку переполнения выдает(((
Пасмарите плиз:
Используя оператор цикла, найти сумму элементов!При определении суммы членов ряда использовать реккурентную формулу.
Найти сумму ряда с точностью Е=10^-3 , общий член которого равен An=n!/(3n^n).
Вот текст моей программки:

CONST
i=0.1E-2;
var
n: integer;
AN, summa:extended;
begin
summa:=0; n:= 1; AN:= 1/2;
while AN>i do
begin
summa:= summa + AN; n:=n+1;
AN:= An*(ln(n+1)*((n+1)/n));
end;
writeln ( 'summa=', summa:2:4);
Writeln ('4islo=', AN:2:4);
readln;
end.

Рекурентку я посчитал,она представленна в тексте программы.Очень нужна помощь.Заранее очень благодарен

[volvo]

arhimag, а прочтение условий что, НЕ для тебя?

При определении суммы членов ряда использовать реккурентную формулу.

А объясни-ка мне, что такое рекуррентная формула во-первых, и где она у тебя в программе - во вторых...