Вычислить сумму ряда с заданной степенью точности

program zadanie1;
 
const
Eps = 0.001;
 
var 
i, j: integer ;
S_IN, S_OUT, Val: Extended;
 
BEGIN
i:=1;
j:=1;
S_IN:=0;
S_OUT:=0;
 
 
repeat
 
 Val:= ( Arctan((1/(i*j)+1)/Sqrt(1-sqr(1/(i*j)+1))) ) /  ((exp(ln(j)*4)) + Sqr(i) + 1);
 S_IN := S_IN + Val;
 j := j + 1;
 
until Abs(Val) <= Eps;
 
 
 Writeln('Заданная точность: ', Eps);
 Writeln('Сумма ряда равна: ', S_IN);
 Writeln('Требуемая точность достигнута на ', j, '-ой итерации.');
 
 Readln;
 
END.

const eps=0.001;
var i,j:integer;
    s_in,s_out,val,as:extended;
begin
s_out:=0;
for i:=1 to 9 do
 begin
  s_in:=0;
  j:=0;
  repeat
  inc(j);
  val:=arctan((1/(i*j+1))/sqrt((1-sqr(1/(i*j+1)))))/(j*j*j*j+i*i+1);
  s_in:=s_in+val;
  until abs(val)<eps;
  s_out:=s_out+sqrt(i)*s_in;
 end;
s_out:=2.3*s_out;
write('S=',s_out:0:3);
readln
end.

j:=0;
  repeat
  inc(j);//j=1

s_out:=0;
i:=0;
repeat
  inc(i);
  s_in:=0;
  j:=0;
  repeat
  inc(j);
  val:=arctan((1/(i*j+1))/sqrt((1-sqr(1/(i*j+1)))))/(j*j*j*j+i*i+1);
  s_in:=s_in+val;
  until abs(val)<eps;
  s_out:=s_out+sqrt(i)*s_in;
until i=9;

s_out:=2.3*s_out;//вот эту, и все будет одинаково
write('S=',s_out:0:3)