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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.