Minimize[{2 x + 5 y, 50 Log[x] + 25 Log[y] == 500}, {x, y}]