var a >= 0, integer;
var b >= 0, integer;

s.t. lemez: a*4000 + b*5000 <= 32000;
s.t. acel: a*3 + b*3 <= 24;
s.t. tetofedo: a*300 + b*200 <= 2000;
s.t. beton: a*200 + b*100 <= 1600;

maximize nyereseg: a*4000 + b*5000;
end;