составить программу рисования правильного шестиугольника и пятиугольной звездочки

program hexagon;
uses crt,graph;
type Tpoint=record
            x,y:integer;
            end;
var  i,x0,y0,R,gd,gm:integer;
     p:array[1..7]of TPoint;
     a:integer;
begin
clrscr;
R:=200;
InitGraph(gd,gm,'d\tp\bgi');
x0:=GetMaxX div 2;y0:=GetMaxY div 2;
a:=0;
for i:=1 to 7 do
 begin
  p[i].x:=x0+round(R/2*cos(a*pi/180));
  p[i].y:=y0-round(R/2*sin(a*pi/180));
  a:=a+60;
  end;
p[7].x:=p[1].x;
p[7].y:=p[1].y;
MoveTo(p[1].x,p[1].y);
SetColor(4);
for i:=1 to 7 do
LineTo(p[i].x,p[i].y);
readln
end.

program zvezda;
uses crt,graph;
type Tpoint=record
            x,y:integer;
            end;
var  i,x0,y0,R,R1,gd,gm:integer;
     p:array[1..11]of TPoint;
     a:integer;
begin
clrscr;
R:=200;
R1:=150;
InitGraph(gd,gm,'d\tp\bgi');
x0:=GetMaxX div 2;y0:=GetMaxY div 2;
a:=18;
for i:=1 to 10 do
  begin
    if i mod 2=0 then
      begin
        p[i].x:=x0+round(R1/2*cos(a*pi/180));
        p[i].y:=y0-round(R1/2*sin(a*pi/180));
      end
    else
      begin
        p[i].x:=x0+round(R*cos(a*pi/180));
        p[i].y:=y0-round(R*sin(a*pi/180));
      end;
    a:=a+36;
  end;
p[11].x:=p[1].x;
p[11].y:=p[1].y;
MoveTo(p[1].x,p[1].y);
SetColor(4);
for i:=1 to 11 do
LineTo(p[i].x,p[i].y);
readln
end.