Нарисовать звезду

uses crt,GraphABC;
var
   x,x1,y,y1:longint;
begin
     x:=150;
     line(150,10,125,85);{строем звезду}
     line(125,85,150,110);
     for x1:=150 to 175 do
         line(x,10,x1,110-(x1-150));
     line(250,110,175,85);
     for y1:=110 to 135 do
         line(250,110,150+(y1-110),y1);
     line(150,220,175,135);
     for x1:=150 downto 125 do
         line(150,220,x1,110-(x1-150));
     line(40,110,125,135);
     for y1:=110 downto 85 do
         line(40,110,150+(y1-110),y1);
 
{     line(90,50,210,170);
     line(210,50,90,170); дополнительное построение}
     line(210,50,165,55);
     line(210,50,205,95);
     line(90,170,95,125);
     line(90,170,135,165);
     line(90,50,95,95);
     line(90,50,135,55);
     line(210,170,165,165);
     line(210,170,205,125);
end.