Дано натуральное число N. Вычислить: S=1+1/3+1/5+1/7+...+1/(2N+1). (программа Паскаль)

program test;
 var i, n: integer;
 s: real;
begin
 s := 0.0;
 for i := n downto 0 do
 s := s + 1.0/(2*n+1);
 writeln(s)
end.