50 баллов помогите с информатикой. №489

Question

50 баллов помогите с информатикой. №489

---

Answer 1

var f: real;

i,n: integer;

begin

write('Введите N: ');

readln(n);

f:=0;

for i:=1 to n do f:=f+((3*(i+1))/(7*(i*i*i)+9));

writeln('Сумма ',n,' элементов равна ',f);

end.