По заданному натуральному 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.