вычисления суммы ряда

[kJlaCuk]

Не могу врубится как написать на Паскале
вычисления суммы ряда (формула прикреплена) с точность Е (т.е. вычисления должны заканчиваться когда очередной член ряда станет меньше заданной точности). Точность вычислений должна вводиться с клавиатуры. Программа должна выводить на экран сумму ряда и количество просуммированных членов ряда.

[kJlaCuk]

Может опечатка в формуле? Кто как считает?
Мне бы знать хотябы как эту формулу записать в коде

[puporev]

uses crt;
var e,s,a:real;
    n:integer;
begin
clrscr;
write('e=');readln(e);//вводим точность, например 0,01
//для решения используем цикл с предусловием, определяем значения
//очередного члена ряда (а) и суммы (S) при n=1.
n:=1;a:=1/sqr(n);S:=1;
while a>e do //пока значение очередного члена ряда >e
  begin
   inc(n); //увеличиваем на 1 n
   a:=1/sqr(n);//считаем очередной член ряда
   S:=S+a;  //считаем сумму
  end;
writeln('Summa=',S:0:4,'  n=',n);
readln
end.

[kJlaCuk]

Биг спс
В очередной раз убеждаюсь что на лекциях нельзя спать