Minimize[20 x+15 y,{0.4 x+0.3 y>=40000,0.3 x+0.5 y>=50000,0.2 x+0.1 y>=15000,x>=0,y>=0},{x,y},Integers]