Вычислить S=1/33+1/53+1/73+..+1/(2n+1)3 в Паскале

Question

Вычислить S=1/33+1/53+1/73+..+1/(2n+1)3 в Паскале

Answer 1

Var
  S, tmp: real;
  n, i: integer;

begin
      write('Введите n:');
      readln(n);
      for i := 1 to n do
      begin
        tmp := 1 / ((2 * i + 1) * 3);
        S := S + tmp;
      end;
      writeln(S:8:10);
      readln;
end.