Вычислить значение суммы S знакочередующегося ряда с точностью е = 0,0001.

[spod32]

[FONT="Arial"][SIZE="3"]Вычислить значение суммы S знакочередующегося ряда с точностью е = 0,0001.
Вывести начальные данные и результаты вычислений (е, S, количество членов ряда, которые по модулю не менее за е, значение первого члена ряда, который по модулю не меньше за е.)
[IMG][/IMG]

Вот, что-то пытался написать но работает она неправильно:

uses crt;
var n:integer;
    s,sum,e,back:real;

 begin
    clrscr;

   n:=1;

          writeln();
     repeat

      s:=(power((-1),n)*(power(n,3)) / (2*power(n,4) - 1));
     sum:= s + (power((-1),n)*(power(n,3)) / (2*power(n,4) - 1));
                inc(n);
                   e:=sum-s;
              writeln('e= ',e:12:5);
  writeln(' n=',n);
  writeln(' Сума:',sum:12:5);
      readln;

   until abs(sum) <= e;
  writeln('сумма по модулю =',sum:12:5);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[paves]

из того, что сразу видно:
sum:=sum+s; //так считается сумма
e:=sum-s; //тут вместо e другу переменную нужно использовать, т.к. точность поиска поменяется

[netpolice]

sum:= s + (power((-1),n)*(power(n,3)) / (2*power(n,4) - 1));

Эта строчка САФсем ненужна (вообще бред)

Поменять подсчета суммы, согласно предыдущему оратору.

И где-нить до цикла объявит

e:= 0,0001;

и как дань удобочитаемости

sum:= 0 ; // но тоже до начала цикла

[spod32]

Спасибо что пытались помочь, зделал с утреца сам...)