Напиишите,пожалуйста,программу через цикл с параметром.Задание 3 во вложениях

Question

Напиишите,пожалуйста,программу через цикл с параметром.Задание 3 во вложениях

---

Answer 1

Var i,n:integer;
    s: real;
begin
   n:=3; s:=n;
   for i:=1 to 8 do s:=s+(n+i)/(i+1);
   writeln('сумма: ',s:8:5);
end.

сумма: 14.65794