n=10; (*number of questions needed*)
generate[n_]:=Module[{QAVCmin,QMCmin,QATCmin},
SeedRandom[n];
k=RandomInteger[{1,5}];
δ=RandomInteger[{1,10}];
γ=-6*δ*k;
β=RandomInteger[{((γ^2)/(3δ)),((k*(γ^2))/(3δ))}];
QAVCmin=-γ/(2δ);
QMCmin=-γ/(3δ);
QATCmin=RandomInteger[{QAVCmin+1,2*QAVCmin}];
α=γ*(QATCmin^2)+2δ*(QATCmin^3);

Print["Question ",i];
Print["Cost function is TC(Q)=", α+β*Q+γ*(Q^2)+δ*(Q^3)];
Print["(Subscript[Q, min]^AVC)=",QAVCmin];
Print["(Subscript[Q, min]^MC)=",QMCmin];
Print["(Subscript[Q, min]^ATC)=",QATCmin];
Print[Plot[(α+β*Q+γ*(Q^2)+δ*(Q^3)),{Q,1,QATCmin+1}]];
{}
];

Table[generate[i],{i,1,n}]//TableForm;
(*CODE ABOVE*)
(************)
(*OUTPUT BELOW*)