Maximize[{a^3b,12a+2b==64},{a,b}]