Нарисовать флаг Соломоновых Островов

uses graph;
procedure Zvezda(x,y,r:integer);
var i:integer;
    p:array[1..11] of pointtype;
    a:real;
begin
a:=pi/2;
for i:=1 to 11 do
 begin
  if i mod 2<>0 then
   begin
    p[i].x:=x+round(r*cos(a));
    p[i].y:=y-round(r*sin(a));
   end
  else
   begin
    p[i].x:=x+round(r/2.8*cos(a));
    p[i].y:=y-round(r/2.8*sin(a));
   end;
  a:=a+pi/5;
 end;
setcolor(15);
setfillstyle(1,15);
fillpoly(11,p);
end;
var xc,yc,x,y,i:integer;
    p:array[1..7] of pointtype;
    u:real;
begin
initgraph(x,y,'');
setfillstyle(1,1);
setcolor(11);
bar(0,0,640,480);
setfillstyle(1,2);
setcolor(2);
p[1].x:=0;p[1].y:=480;
p[2].x:=640;p[2].y:=480;
p[3].x:=640;p[3].y:=0;
p[4]:=p[1];
fillpoly(4,p);
setfillstyle(1,14);
setcolor(14);
p[1].x:=0;p[1].y:=460;
p[2].x:=0;p[2].y:=480;
p[3].x:=40;p[3].y:=480;
p[4].x:=640;p[4].y:=20;
p[5].x:=640;p[5].y:=0;
p[6].x:=600;p[6].y:=0;
p[7]:=p[1];
fillpoly(7,p);
xc:=150;
yc:=150;
Zvezda(xc,yc,40);
u:=pi/4;
for i:=1 to 4 do
 begin
  x:=xc+round(100*cos(u));
  y:=yc-round(100*sin(u));
  Zvezda(x,y,40);
  u:=u+pi/2
 end;
readln
end.