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