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:3:2); end;
  Readln;
end.