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

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