Дано натуральное число n. Вычислить: 1/1^3+1/2^6+1/3^9+...+1/n^(3*n)

var     i, n, j: integer;     a, s: real; begin     readln(n);          for i := 1 to n do     begin         a := 1;         for j := 1 to 3 * i do             a := a * 1 / i;         s := s + 1 / a;     end;          writeln(s:5:3); end.