а в какой программе?
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
Range(1, n).Select(i -> 1 + 1 / Sqr(i)).Product.Println
end.