In[]:=
f=-x/4+8;​​r=-x/2+24;
In[]:=
FX=Solve[f0,x];​​fx=x/.FX[[1]];​​RX=Solve[r0,x];​​rx=x/.RX[[1]];
In[]:=
fy=f/.x0;​​ry=r/.x0;
In[]:=
AB=Plot[​​{Legended[f,"Frank"],Legended[r,"Ruby"]},{x,0,50},​​Frame{True,True,False,False},FrameLabel{"Potatoes (ounces)","Meat (ounces)"},​​PlotRange{0,25},PlotRangePadding0,​​PlotLabel"Frank's Production vs. Ruby's Production",​​BackgroundTransparent]
Out[]=
Frank
Ruby
In[]:=
Show[AB,​​ListPlot[{Callout[{{fx,0}},"A",Above]}],BackgroundTransparent]
Out[]=
Frank
Ruby