+ 5. While one could use ListPlot, we simply graph the curves that go through the data points.

Input := 

Plot[{n/2 Sin[2 Pi/n],n Tan[Pi/n],Pi}, {n, 10, 400},
 AxesLabel -> {"n", "Area"},
 DisplayFunction -> $DisplayFunction]

Output =

-Graphics-