Составить значок какого-либо цветного логотипа или брэнда, или значок пиктограммы для вашей программы — Pascal(Паскаль)

uses crt,graph;
procedure Luchi(x1,y1:integer);
var i:integer;
    a:real;
    p:array[1..33] of Pointtype;
begin
a:=-1;
for i:=1 to 32 do
  begin
    if i mod 2=0 then
      begin
        p[i].x:=x1+round(100*cos(a*pi/180));
        p[i].y:=y1-round(100*sin(a*pi/180));
      end
    else
      begin
        p[i].x:=x1+round(50*cos(a*pi/180));
        p[i].y:=y1-round(50*sin(a*pi/180));
      end;
    a:=a+11.25;
  end;
p[33].x:=p[1].x;
p[33].y:=p[1].y;
SetColor(3);
drawpoly(33,p);
Setfillstyle(1,3);
fillpoly(33,p);
end;
var  gd,gm,x0,y0:integer;
begin
clrscr;
InitGraph(gd,gm,'');
Setbkcolor(15);
x0:=getmaxX div 2;
y0:=getmaxY div 2;
setfillstyle(1,12);
bar(x0-150,y0-150,x0+150,y0+150);
setfillstyle(1,9);
bar(x0-140,y0-140,x0+140,y0+140);
Luchi(x0,y0);
Setcolor(3);
Circle(x0,y0,80);
Setfillstyle(1,3);
fillellipse(x0,y0,80,80);
readln
end.