u1:x1>=0;

u2:x2>=0;

u3:x1+x2<=1000;

u4:x1<=600;

u5:x2<=800;

u6:3*x1+2*x2<=2400;

zf:120*x1+90*x2;

load("simplex")$

NB:[u1,u2,u3,u4,u5,u6];

maximize_lp(zf,NB);