var i, j : integer; sum : real; begin sum := 0; for i:=1 to 100 do for j:=1 to 120 do sum := sum + 1 / (i + j * j); writeln(sum); end.