Filling between more than two boundaries

r = ImplicitRegion[
   y <= 11 + x && y <= 27 - x && y <= 1/5 (90 - 2 x) && x >= 0 && 
    y >= 0, {x, y}];
Show[Plot[{11 + x, 27 - x, 1/5 (90 - 2 x)}, {x, 0, 20}, 
  AxesOrigin -> {0, 0}], RegionPlot[r]]

enter image description here


Plot[{11 + x, 27 - x, 1/5 (90 - 2 x), Min[11 + x, 27 - x], 
  Min[11 + x, 27 - x, 1/5 (90 - 2 x)]}, {x, 0, 20}, 
 Filling -> {5 -> {Axis, {White, LightBlue}}, 4 -> {{3}, {None, Yellow}}}]

enter image description here


Depend on @kglr, but only use three functions.

Plot[{11 + x, 27 - x, 1/5 (90 - 2 x)}, {x, 0, 20}, PlotPoints -> 40, 
 Filling -> {3 -> {Axis, {None, Blue}}, 2 -> {{3}, {White, None}}, 
   1 -> {{3}, {White, None}}}]

enter image description here