1、 根据公式
，计算圆周率的π值。
（★★，循环语句，测试数据n＝10000；答案：3.1414971639）
program e;
var
i:longint;
s:real;
begin
writeln; s:=0;
for i:=1 to 10000 do s:=s+1/(i*i);
writeln(sqrt(6*s));
end.
