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

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.