Нарисовать флаг Либерии

uses graphaBC;
var x,y,y1,d,r1,r2:integer;
    u:real;
    p:array of point;
begin
d:=15; //ширина полосок
setwindowsize(44*d+80,22*d+80);//размер графического окна
centerwindow;
clearwindow(clSkyblue); //голубой фон
x:=40;  //левый верхний угол
y:=40;
setpencolor(clWhite);//белый цвет линий
setbrushcolor(clRed);//красная кисть
rectangle(x,y,x+44*d,y+22*d);//красное полотно
//белые полосы
setbrushcolor(clWhite);
y1:=y+2*d;
for var i:=1 to 5 do
 begin
  rectangle(x,y1,x+44*d,y1+2*d);
  y1:=y1+4*d;
 end;
//темно-синий прямоугольник
setbrushcolor(clNavy);
setpencolor(clNavy);
rectangle(x,y,x+10*d,y+10*d); 
//звезда
setbrushcolor(clWhite);
x:=x+5*d;
y:=y+5*d;
r1:=2*d-5;
r2:=4*d;
u:=pi/2;
setlength(p,11);
for var i:=0 to 10 do
 begin
  if not odd(i) then
   begin
    p[i].x:=x+round(r2*cos(u));
    p[i].y:=y-round(r2*sin(u));
   end
  else
   begin
    p[i].x:=x+round(r1*cos(u));
    p[i].y:=y-round(r1*sin(u));
   end;
  u:=u+pi/5;
 end;
polygon(p);
end.

uses graphaBC;
type point=record
           x,y:integer;
           end;
var x,y,y1,y2,d,r1,r2,i:integer;
    u:real;
    p:array[1..11] of point;
begin
d:=15; //ширна полосок
setwindowsize(44*d+80,22*d+80);
centerwindow;
clearwindow(clSkyblue); //голубой фон
x:=40;  //левый верхний угол
y:=40;
setpencolor(clWhite);//белый цвет линий
setbrushcolor(RGB(200,0,0));//красная кисть
rectangle(x,y,x+44*d,y+22*d);//красное полотно
//белые полосы
setbrushcolor(clWhite);
y1:=y+2*d;
for i:=1 to 5 do
 begin
  rectangle(x,y1,x+44*d,y1+2*d);
  y1:=y1+4*d;
 end;
//темно-синий прямоугольник
setbrushcolor(clNavy);
setpencolor(clNavy);
rectangle(x,y,x+10*d,y+10*d);
//звезда
setbrushcolor(clWhite);
x:=x+5*d;
y:=y+5*d;
r1:=2*d-5;
r2:=4*d;
u:=pi/2;
for i:=1 to 11 do
 begin
  if odd(i) then
   begin
    p[i].x:=x+round(r2*cos(u));
    p[i].y:=y-round(r2*sin(u));
   end
  else
   begin
    p[i].x:=x+round(r1*cos(u));
    p[i].y:=y-round(r1*sin(u));
   end;
  u:=u+pi/5;
 end;
polygon(p,11);
end.