нахождение суммы нескончаемого ряда тейлора

[Катя Миронова]

помогите, пожалуйста. нужно найти сумму вот такого нескончаемого ряда(извините за корявый рисунок)Безымянный.jpg
вот собственно программа:
program second;
const EPS=0.000001;
var x,y,s,si:real;
i:integer;
begin
writeln('Введ х');
readln(x);
si:=2*((x-1)/(x+1));
s:=si;
i:=3;
while si>EPS do
begin
si:=(si*exp(2*ln((x-1)/(x+1)))/i);
s:=s+si;
i:=i+2
end;
writeln('S=',s:5:2);
y:=ln(x);
writeln('y=',y:5:2);
readln
end.
проблема состоит в том, что при разложении числа s и y не совпадают, отличаются десятыми, а должны быть равны
может дело в том, что я не там поставила 2
помогите, кому не трудно