Maximize[{3 a^2 + 6 a b + 10 b, 3 a + b == 100}, {a, b}]