mathematica

Minimize[{6*(x1A + x2A + x3A) + 8*(x1B + x2B + x3B) +
   5*(x1C + x2C + x3C),
  x1A + x1B + x1C <= 2000  &&  60*x1A + 50*x1B + 25*x1C <= 100000 &&
   60*x2A + 50*x2B + 25*x2C <= 135000 &&
   60*x3A + 50*x3B + 25*x3C <= 30000 && x2A + x2B + x2C <= 3000 &&
   x3A + x3B + x3C <= 1500 && x1A + x2A + x3A <= 6000 &&
   x1B + x2B + x3B <= 4000 && x1C + x2C + x3C <= 2000 &&
   x1A >= 0 &&
    x2A >= 0 &&
    x3A >= 0 &&
    x1B >= 0 &&

   x2B >= 0 &&
    x3B >= 0 &&
   x1C >= 0 &&
    x2C >= 0 &&

   x3C >= 0  }, {x1A, x1B, x1C, x2A, x2B, x2C, x3A, x3B, x3C}]