Pascal, подсчитать сумму ряда (c факториалом!)

[Pascal.net]

вот здесь такое же выражение как и мое:
http://sql.ru/forum/actualthread.aspx?tid=554925

[Хыиуду]

Критическая конструкция, есть большая вероятность что упадет после 3-5 проходов

Упадет ровно на четвертом проходе. Видимо, я неправильно понял условие: не ln(ln(ln(x))), а ln(x)*ln(x)*ln(x). Где-то так.
Ну тогда еще проще
s:=1;
a:=1;
for i:=1 to N do
begin
a:=a*ln(3)/i/x;
s:=s+a;
end;