По заданному натуральному n вычислить 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.