(цикл while) дано целое число n(> 0).найти сумму 1+1/4+1/9++1/n^2

Var
   N,i:integer;
   S:real;
Begin
Write('N = ');
ReadLn(N);
S:=0;
i:=1;
While i <= N do
   Begin
   S:=S+1/(i*i);
   i:=i+1
   End;
WriteLn('S = ',S);
End.