program Bevardë2;
var p:real;i:integer;
begin
  p:=0;
  for i:=1 to 100 do
  begin
    p:=p+1/(i*i);
    WriteLn('p = ', p:6:4);
  end;
  Readln;
end.