program is：
for t from 10 by 2 to 100 do h := solve({x*y*z = 6*t^3, x-y-z = 0, x+y+z = 6*t}, {x, y, z}); A[(t-8)*(1/2)...

I want to solve equations,program in maple as follows:

solve({n = b+2*c+q+2*r, (a+b+c)/(p+q+r) = 9, n*b-3.32*a*(a+p+2*n)*10^(-7)*t^(5/2)*exp(-18.27*10^4/t) = 0, n*c-3.32*a*(a+p+2*n)*10^(-7)*t^(5/2)*exp(-32.035*10^4/t) = 0, n*q-3.32*p*(a+p+2*n)*10^(-7)*t^(5/2)*exp(-9.16*10^4/t) = 0, n*r-3.32*p*(a+p+2*n)*10^(-7)*t^(5/2)*exp(-18.77*10^4/t) = 0, a+b+c+p+q+r+n-.73*10^28/t = 0}, {a, b, c, n, p, q, r})

I can't get the results but  "Warning, solutions may have been lost"