Как сделать пятиугольник, шестиугольник, семиугольник, восьмиугольник в PascalABCNet?

если не важна точность, то с помощью уравнения окружности можно сделать.

uses graphabc;
begin
var x0:=100;
var y0:=100;
var xs,ys,xe,ye:integer;
var step := 2*Pi/6; // 6 углов
var t:real;
var R :=50;
while t<=2*Pi do begin
xs := Round(x0+R*cos(t));
ys := Round(y0+R*sin(t));
t := t + step;
xe := Round(x0+R*cos(t));
ye := Round(y0+R*sin(t));
line(xs,ys,xe,ye);
end;
end.