Вычислите в цикле Repeat...until

var i:integer; s:real;
begin
i:=1; s:=0;
repeat
s:=s+i/(i+1);
i:=i+1;
until i=7;
writeln('s=',s);
end. 

Результат:
s=4.40714285714286