Объяснение:
var s,i,n:integer;
begin s:=0;
write('введите n - '); readln(n);
for i:= 1 to n do begin
s := s + (1/sqr(i));
end;
write(s);
end.
