найти сумму ряда.

[StudentSAFU]

где ошибка подскажите?

Найти сумму ряда с точностью до ε, т.е. продолжать процесс суммирования до тех пор, пока член ряда не станет меньше ε. {ε = 10-4}
КОД:

program 16var;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Math;
const
  Eps = 0.0001;
var
  n : Integer;
  r , Sum : real;
begin
  Sum := 0;
  n := 0;
  repeat
    r := 2*sqr(n)+1 / (1 + n* n * n* n);
    Sum := Sum + r;
    n := n + 1;
  until Abs(r) <= Eps;
  Writeln('summa : ', Sum);
  Readln;
end.

[StudentSAFU]

А все простите, нашел сам.

[whatever]

Может так:

r := (2*sqr(n)+1) / (1 + n* n * n* n);

update: нашел, значит нашел :D