Minimize[x^2+2x+2,x]

Plot[x^2+2x+2,{x,-2,3}]

NMaximize[{0.4*x+0.3*y, 3*x+y≤ 120&&x/8+y/4≤ 10&&x>0&&y>0},{x,y}]