poly={{0,4},{7,4},{7,-3},{-2,-3},{0,2},{5,2},{3,-2},{-4,3},{-5,0},{-3,-3},{0,4}};pts={{-3,-1},{5,3},{2,1},{-2,4},{-1.85,-1.5},{-0.6,1.5}};Graphics[{Polygon@poly,Red,PointSize[0.02],Point/@pts,MapThread[Text[Framed[#1],#2,-{1,1}]&,{Range@Length@pts,pts}]},ImageSizeMedium]