Дано натуральное число 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.