Сумма ряда

[Любаша]

Много всего перечитала, пробывала составлять программы,нет такого результата какой нужен.
Помогите пожалуйста!!!

Для заданных значений аргумента Х вычислить значеня суммы S и функцию Z
S=⅀(-1)^n*((x^2n+1)/(2n+1))
P.S. над знаком суммы бесконечность, под знаком n=1

Z=arctg x

0,2<=x<=0,6
дельта х=0,05
E=10^(-15) (погрешность)

Код:
program lab2;
var
dx,x,s,so,z:real;
n:longint;
const
e=0.00001;
begin
dx:=0.05;
x:=0.2;
while x<=0.6 do
begin
z:=arctan(x);
write('x=',x:10:15,z:10:15);
s:=0;
n:=1;
repeat
so:=(-1)(exp(ln(x)*(2*n+1)))/(2*n+1);
s:=s+so;
n:=n+1
until abs(so)<e;
writeln ('s=');
x:=x+dx;
end;
readln;
end.

[Хыиуду]

Ищите в разделе "Алгоритмы" сумму ряда.