Maximize[{30a+20b,a+2.5b<=200&&2a+b<=100&&4a+4b<=240},{a, b}]