Дано натуральное N. Найдите сумму чисел 1/3+1/5+1/7+...+1/(2х+1)

var    n, i: word;   
sum: real;
begin   
write ('n = ');    
readln (n);   
sum := 0;   
for i := 1 to n do       
sum := sum + 1/(2*i+1);   
writeln (sum:6:5);
end.