(Цикл 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.