Дано натуральное число n. вычислить сумму n членов последовательности (1/2), (3/4), (5/6), (7/8)

Program n1;
var n,i: integer;
sum: real;
begin
readln(n);
i:=1;
repeat
sum:=sum+i/(i+1);
i:=i+2;
until i>2*n;
write(sum);
end.