Опроеделение суммы ряда с заданной погрешностью

[Dimon278]

Ребятыыыыыыыыыыы,помогите решить задачу:
Разработать алгоритм и программу, определяющую сумму ряда с заданной погрешностью ɛ (ипсилон) для произвольного заданного аргумента x.
1+ x^2/2!+x^3/3!+x^4/4!+⋯+x^n/n!+⋯.
Функция для проверки e^x.

[ai\ekcah^p]

так попробуй

program ryad;
uses crt;
Var
e,x,sum,chlen:real;
i,a,num:integer;
procedure f( var fact:integer;var kol:integer);
 begin
 if kol>0 then
  begin
   fact:=fact*kol;
  end
   else fact:=1
 end;
begin
 clrscr;
 write('введтие погрешность-> '); readln(e);
 write('введтие аргумент   -> '); readln(x);
 a:=1;
 i:=0;
 sum:=0;
 while chlen<e do
  begin
   f(num,i);
   chlen:=exp(a*ln(a))/num;
   sum:=sum+chlen;
   i:=i+1;
   a:=a+1;
  end;
writeln('сумма ряда = ', sum:8:2);
readln;
end.

[Dimon278]

пасиба.
а выражение для проверки куда вставить?