Дано число n. Составить программу нахождения ряда чисел 1+1/4+1/9+1/16+...+1/n в квадрате.

var n,i:integer;s:real;beginwriteln('n=');readln(n);s:=0;for i :=1 to n do s:=s+1/sqr(i);writeln('s=',s);readln;end.