[SOLVED] point markings in mathematica

[dwsmith]

How can I label the intersection of the dashed and thick plots?

<< PlotLegends';PlotOne = Plot[2, {x, 0, 3}, PlotStyle -> {Dashed}];
PlotTwo = Plot[1, {x, 0, 3}, PlotStyle -> {Thick}];
<< Graphics`ImplicitPlot`;
ImplicitPlotOne = 
  ImplicitPlot[x == 1, {x, 0, 3}, {y, 0, 3}, PlotStyle -> {Dashed}];
ImplicitPlotTwo = 
  ImplicitPlot[x == 2, {x, 0, 3}, {y, 0, 3}, PlotStyle -> {Thick}];
Show[PlotOne, PlotTwo, ImplicitPlotOne, ImplicitPlotTwo, 
 AxesLabel -> {N, P}]

Solved