Написать функцию ** языке Pascal

Question

Написать функцию на языке Pascal

---

Answer 1

Var
 y : real;
begin
  for var i:=1 to 25 do
    y:= y + (i+2)/(i*(3*i+1));
  writeln(y);
end.