somme des n premiers termes

ÉNONCÉ
Ecrire un programme qui permet de calculer la somme des N premiers termes de la série.
S=1+1/22+1/32+1/42+………+1/N2

PASCAL
program som;
uses wincrt;
var
i,n:integer;
s:real;
begin
repeat
writeln('saisir un entier n'); readln(n);
until n>0;
s:=0;
for i:=1 to n do s:=s+1/sqr(i);
writeln('la somme est= ',s:6:2);
end.