plot[{{y=-x^2+6x},{y=2x},{y=0},{x=4}}]