Пост #146912

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.