Сумма ряда

[fr330n]

Вычислить сумму ряда:
S:=x^n+(x^(n-1))/2+(x^(n-2))/3+...+x/x-1/(n+1)+(x-1)/(n+2)+...
{формула переписана из задания}
{картинка ниже, показывает, насколько я понял формулу, естественно не полностью}

С точностью до члена ряда меньшего 0,000001.
Для определения текущего члена ряда использовать рекуррентную формулу.

З.Ы. примерно как-то так это реализуется?(Если кто может попроще все это замудрить, буду благодарен)

x:=5; q:=1; k:=0.5; 
{...}
while {?}>0.000001 do
begin
  i:=exp(x*ln(k));
     i:=i/q;
  x:=x-1; q:=q+1;
s:=s+i;
end;
{...}