сумма ряду и его точность

[silvan24]

Можете пожалуста кто небудь помочь с решением даной задачи. Pascal

Program prog_2;
uses crt;
Var fact,i,j:integer;
s2, s1:real;
e,x:real;
Begin
clrscr;
e:=0.00002;
x:=0.56;
s1:=0;fact:=1;
i:=1;
writeln('tochist riady: ',e:2:4);
repeat
fact:=fact*(i+1);
s2:=s2+exp(i+1*ln(-1))*(exp(i+1*ln(x))*ln(i+x)/fact+exp(i+x*ln(e)));
WriteLn(i,' chlen=',s2:2:2);
s1:=s1+s2;
i:=i+1;
until s2>e;
WriteLn('Zagalna suma=',s1:2:2);
ReadLn;
end.

Вот условие задачи
условие.rar