не могу разобраться в коде в Pascal

[Wuzup]

есть задание
Вычислить с точностью до 5го знака
И выражениезадание.jpg


написал код но что то неправильно

program lab5;
uses crt;
var  ylast,y,eps,z,x:real;
n:integer;
begin;
clrscr;
writeln('vvedite x=');
readln(x);
   begin
   y:=1;
   n:=1 ;
    ylast:=eps+1;
    while abs(ylast)>=eps do
    begin
    ylast:=((n mod 2)*2-1)*exp(ln(x-1)*n)/n;
    y:=y+ylast;
    n:=n+1;
    z:=z+y;
    writeln('log e(x)=',z:7:5)

    end;
    end;
    readkey;
    end.

помогите пожалуйста

[Mad_Cat]

exp(ln(x-1)*n)

а не кажется ли вам странным использование функции ln(x-1) в программе высчитывающей ее же разложение?

i:=1; //integer
mn:=1;// integer
ch:=x-1;// real
sl:=mn*ch/i;//real
s:=0;//real
while abs(sl)>=eps do
begin
s:=s+sl;
mn:=-mn;
inc(i);
ch:=ch*(x-1);
sl:=mn*ch/i;
end;