Факториал. Паскаль

[Gorchakova]

Доброго времени суток. Выручайте, пожалуйста. Дочке в институте задали задачку:::
Вычислить приближенно значение бесконечной суммы (справа от каждой суммы дается ее точное значение, с которым можно сравнить полученный ответ).
Нужное приближенное считается полученным, если вычисленная сумма нескольких 1-ых слагаемых и очередное слагаемое оказалось по модулю меньше данного положительного числа Е.
(формула в прицепном документе). Заранее благодарствую.

[DoDge_VipeR]

f:=1;
s:=1;
mn:=1;
while mn/f>=e do
begin
mn:=mn*x;
f:=f*i;
s:=s+mn/f;
end;
writeln('s=',s:6:2);
writeln('e^x=',exp(x):6:2);

[Gorchakova]

Огромный респект!!!