You could try something like this:
With[
{points =
{{0, 0}, {1, 0}, {4, 0}, {1, 2}, {4, 2}}
},
Graphics[{
Green, Rectangle[points[[2]], points[[5]]],
PointSize@Large, Black,
Point@points, Text[#, # + {0, 0.1}] & /@ points
}]
]
Using Tooltip instead of text:
With[
{points =
{{0, 0}, {1, 0}, {4, 0}, {1, 2}, {4, 2}}
},
Graphics[{
Green, Rectangle[points[[2]], points[[5]]],
PointSize@Large, Black,
Point@points, Tooltip[Point@#, Text@#] & /@ points
}]
]