program juggle(input,output); var c,i,j,n,a,b,lala,n3:integer; max:longint; begin readln(lala); for i:=1 to lala do begin readln(n); max:=maxint; for j:=1 to n do if j*j*j>=n then begin n3:=j; break; end; for a:=1 to n3 do for b:=a to n do if (n mod(a*b)=0)and(n div a div b>=b) then begin c:=n div a div b; if (a*b+b*c+a*c)*2<max then max:=2*(a*b+b*c+a*c); end; writeln(max); end; end. /************************************************************** Problem: 2122 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/