Пожалуйста помогите избавиться от экспаненты Опции

[Arhtas]

Задание:

S=((x-1)/x+1)+(1/3)*((x-1)/(x+1))^3+...+(1/(2n+1))*((x-1/(x+1))^2n+1+...

x:=0.5
E= 0.1; 0.001

преподавательница видит *exp и даже не смотрит.
Я понял что это нужно делать путём накопления... Вобщем объясните пожалйста, я вообще не могу этого понять :

вот как я написал

Program omglol;
uses crt;
var m,n,x:integer;
eps,s,x:real;
begin clrscr;
writeln('vvedite x i eps');
readln(x,eps);
n:=0;
s:=0;
if x>1 then m:=1;
ig x<1 then m:=-1;
while abs(1/(2*n+1))*exp((2*n+1)*ln(abs(x-1)/(x+1))))>eps do begin
s:s+m*(1/(2*n+1))*exp((2*n+1)*ln(abs(x-1)/(x+1))));
n:=n+1;
end;
n:=n-1;
writeln('Summa s=',S,'N poslednego slogaemogo=',n-1,' poslednee slogaemoe=',(1/(2*n+1))*exp((2*n+1)*ln(abs((x-1/(x+1))));
readln;
end.