I think Nasser provided a good solution for a start. If yo need something else you should clarify it in you original question - especially you should post the code of what you have tried. Otherwise it is hard for other people to see where the problem is at. To read the point values you could do something like this:
Manipulate[
Graphics[Style[Text[#, # + .3], 12, Red] & /@ pt,
PlotRange -> 2], {{pt, {{0, 0}, {1, 0}, {1, 1}, {0, 1}, {1, -1}}},
Locator, LocatorAutoCreate -> True}]