Нарисовать "Розу ветров" Опции

[Demian]

Здравствуйте. Нужно нарисовать "Розу ветров". Прошу о помощи.

[_LeeRoy_]

Нужно нарисовать "Розу ветров".

Так пойдёт?

program roza_vetrov;
uses crt,graph;
Var Gd, Gm : Integer;
Begin clrscr;
 Gd:=Detect;
 InitGraph(Gd, Gm, ' ');
  setcolor(4);
     line(120,240,320,240);
     line(320,240,280,200);
     line(280,200,120,240);
   setfillstyle(1,4);  floodfill(250,220,4);
     line(320,240,320,440);
     line(320,440,280,280);
     line(280,280,320,240);
   setfillstyle(1,4);  floodfill(300,300,4);
     line(320,240,520,240);
     line(520,240,360,280);
     line(360,280,320,240);
   setfillstyle(1,4);  floodfill(350,250,4);
     line(320,240,320, 40);
     line(320, 40,360,200);
     line(360,200,320,240);
   setfillstyle(1,4);  floodfill(330,150,4);
setcolor(3);
     line(120,240,320,240);
     line(320,240,280,280);
     line(280,280,120,240);
   setfillstyle(1,3);  floodfill(250,260,3);
     line(320,240,320,440);
     line(320,440,360,280);
     line(360,280,320,240);
   setfillstyle(1,3);  floodfill(330,270,3);
     line(320,240,520,240);
     line(520,240,360,200);
     line(360,200,320,240);
   setfillstyle(1,3);  floodfill(360,220,3);
     line(320,240,320, 40);
     line(320, 40,280,200);
     line(280,200,320,240);
   setfillstyle(1,3);  floodfill(300,200,3);

readkey;
closegraph;
end.