Examples:
A[n_] := HypergeometricDistribution[n, 50, 100];
a1 = {Arrowheads[0.02], Arrow[{{10, 0.25}, {5, PDF[A[10], 5]}}]};
t1 = Text[Style["n=" <> ToString[10] <> ",r=50,N=100", Medium], {10, 0.25}, {-1, 0}];
a2 = {Arrowheads[0.02], Arrow[{{12, 0.23}, {10, PDF[A[20], 10]}}]};
t2 = Text[Style["n=" <> ToString[20] <> ",r=50,N=100", Medium], {12, 0.23}, {-1, 0}];
a3 = {Arrowheads[0.02], Arrow[{{25, 0.20}, {25, PDF[A[50], 25]}}]};
t3 = Text[Style["n=" <> ToString[50] <> ",r=50,N=100", Medium], {25, 0.20}, {0, -1}];
epilog = {a1, t1, a2, t2, a3, t3};
DiscretePlot[Evaluate@Table[PDF[A[n], k], {n, {10, 20, 50}}], {k, 0, 32},
PlotRange -> All, PlotMarkers -> Automatic, Epilog -> epilog,
Background -> RGBColor[0.1, 0.45, 0.3, 0.9]]