Помогите!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Question

Помогите!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

---

Answer 1

Var
     n : integer;
    res : real;
begin
  write('n ?');
  readln(n);
  for var i:=1 to n do res := res + (i+1)/(i*i+1); 
writeln(res);
end.

при n=5 ответ 2.52