Составить процедуру рисования фигуры

uses graph;
var grDriver:integer;
    grMode:integer;
Begin
     grDriver:=Detect;
     InitGraph(grDriver,grMode,'c:\bgi\');
     Line(100,250,500,250);
     Line(500,250,150,350);
     Line(150,350,300,150);
     Line(300,150,450,350);
     Line(450,350,100,250);
     readln;
end.

uses graph;
var grDriver:integer;
    grMode:integer;
procedure WriteStar;
begin
     Line(100,250,500,250);
     Line(500,250,150,350);
     Line(150,350,300,150);
     Line(300,150,450,350);
     Line(450,350,100,250);
end;
Begin
     grDriver:=Detect;
     InitGraph(grDriver,grMode,'c:\bgi\');
     WriteStar;
     readln;
end.

program zvezda;
uses graph;
procedure Fig(x,y,r,c:integer);
var  p:array[1..5]of Pointtype;
     a,i:integer;
begin
a:=-90;
for i:=1 to 5 do
  begin
   p[i].x:=x+round(r*cos(a*pi/180));
   p[i].y:=y-round(r*sin(a*pi/180));
   a:=a+72;
  end;
SetColor(c);
for i:=1 to 3 do
Line(p[i].x,p[i].y,p[i+2].x,p[i+2].y);
line(p[1].x,p[1].y,p[4].x,p[4].y);
line(p[2].x,p[2].y,p[5].x,p[5].y);
end;
var  gd,gm:integer;
begin
initGraph(gd,gm,'');
Fig(getmaxX div 2,getmaxY div 2,100,13);
readln
end.

uses graph;
procedure Trg(x0,y0,a,u1,u2,k,c:integer);
var x1,y1,x11,y11,x12,y12,b:integer;
begin
b:=a div 3;
x1:=x0+k*round(b*cos(u2*pi/180));
y1:=y0-round(b*sin(u2*pi/180));
x11:=x1+round(a*cos(u1*pi/180));
y11:=y1-round(a*sin(u1*pi/180));
x12:=x1+round(a*cos((u1-108)*pi/180));
y12:=y1-round(a*sin((u1-108)*pi/180));
setcolor(c);
line(x1,y1,x11,y11);
line(x1,y1,x12,y12);
line(x11,y11,x12,y12);
end;
var a,x,y:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
a:=100;
Trg(x,y,a,-36,90,1,12);
Trg(x,y,a,36,162,1,12);
Trg(x,y,a,108,306,-1,12);
readln
end.