Пожалуйста посчитайте решить в Паскале

var
  i,j:integer;
  s,p:real;
begin
  s:=0;
  for i:=1 to 100 do begin
    p:=1;
    for j:=1 to 20 do p:=p/(i*i+j*j);
    s:=s+i*i*p
    end;
  Writeln(s)
end.


7.16965901888604E-38



begin
  var s:=0.0;
  for var i:=1 to 100 do begin
    var p:=1.0;
    for var j:=1 to 20 do p*=1/(i*i+j*j);
    s+=i*i*p
    end;
  Writeln(s)
end.