Вычислить значения сумм

[Anytka99]

Вычислить значения сумм на Pascal:

[Serge_Bliznykov]

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

[Anytka99]

Сообщение от Serge_Bliznykov

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

огромное спасибо)