Раз никто не пробует, попробую я...
Я так понимаю, что 1,2 и 3 после дроби это факториалы? Тогда попробуй так:
Код
program Linkin;
var n,f,z:integer; ln1,x,eps:real;
begin
writeln('Введите x,eps');
readln(x,eps);
n:=2;
f:=2;
z:=-1;
ln1:=x-1;
while (ln1>eps) do begin
ln1:=ln1+(z*(exp(n*ln(x-1))))/f;
z:=z*(-1);
f:=f*(f+1);
n:=n+1;
end;
writeln('Сумма ряда равна ',ln1);
end.
Но я не большой специалист в этом деле! Может кто-нибудь улучшит программу...