Сумма ряда (Delphi 7)

[Мессалина]

Найти сумму ряда:
S=1 + 1/2^2 + 1/3^2 + 1/4^2 + 1/5^2 +...+ 1/n^2 с заданной точностью е=10^-3.

Буду признательна за помощь.

[newerow1989]

const e=1e-3;
var s,s1:real;
    i:integer;
begin
   s:=1;
   i:=1;
   Repeat
      i:=i+1;
      s1:=1/i/i;
      s:=s+s1;
   Until s1<e;
   Writeln(s:5:8);
   Readln;
end.