♡! ♡дано натуральное число n .составьте программу,которая вычислит сумму n членов последовательности (1

Var n,i:integer; s:real;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+(2*i-1)/(2*i);
writeln('s = ',s);
end.

Пример:
n = 5
s = 3.85833333333333