Задача на сумму, НЕ представляю как решить Помогите Опции

[agressor]

Сумма от беск. до n=1 (-1)*(sqr n+1)*(x*sqr 2x+1)/4*n*n+1) ;E=1E-3 ,x=0.15;

[klem4]

Вот чисто по аналогии с нашими задачами :

Код

uses crt;
const e=0.001;
     x=0.15;
var s:extended;
   i,n:integer;
function r(n:integer):extended;
begin
  r:=(-1)*(sqr(n)+1)*(4*exp(3*ln(x)))/4*sqr(n) + 1;
end;

Begin
  clrscr;
  s:=0;
  n:=0;
 repeat
     inc(n);
     s:=s+r(n);
     writeln(s:2:4)
  until (abs(r(n)/s)<e)or(n=1000);
  writeln;
  writeln('n=',n);
  writeln('r(n)=',r(n):2:4);
  writeln('s=',s:2:4);
  readln;
  end.

PS на 97% уверен что это не правильно