ПАСКАЛЬ.по данному числу n вычислите сумму 1+1/2^2+1/3^2+...+1/n^2

Question

ПАСКАЛЬ.
по данному числу n вычислите сумму 1+1/2^2+1/3^2+...+1/n^2

Answer 1

Var   n, i: integer;
       s: real;

begin
   writeln('Введи n');
   readln(n);
   s := 1;
   for i := 1 to n do
      s := s + (1 / sqr(n));
   writeln(s);
end.