Решите в паскале через цикл по данному числу n вычислите сумму 1+1/2^2+1/3^2++1/n^2.

Program dfsdf;var n,i: integer;    s,a: real;begin  Readln(n);  s:= 0;  for i:= 2 to n do    a:= 1 + ((1 / n) * (1 / n));    s:= s + a;  Writeln(s)end.