Написать программу для изображения орнамента по образцу

uses GraphABC;
var i,r:integer;
begin
setwindowsize(516,295);
centerwindow;
setpenwidth(2);
rectangle(0,0,windowwidth,windowheight);
setpencolor(clFuchsia);
rectangle(2,2,windowwidth-2,windowheight-2);
setpencolor(clBlack);
setpenwidth(1);
setbrushstyle(bsClear);
r:=14;
for i:=1 to 35 do
 begin
  circle(i*r,r,r);
  circle(i*r,280,r);
  if i<=20 then
   begin
    circle(r,i*r,r);
    circle(500,i*r,r);
   end;
 end;
setpenwidth(2);
setpencolor(clFuchsia);
rectangle(26,26,windowwidth-29,windowheight-26);
setbrushstyle(bsSolid);
setbrushcolor(clAqua);
setpencolor(clBlack);
rectangle(27,27,windowwidth-31,windowheight-28)
end.

setwindowsize(516,295);  //размер графического окна, сделан методом подбора
centerwindow;  //окно по центру экрана
setpenwidth(2); //толщина линий=2
rectangle(0,0,windowwidth,windowheight);//черный прямоугольник по границам окна
setpencolor(clFuchsia); //сиреневый
rectangle(2,2,windowwidth-2,windowheight-2);//прямоугольник внутри черного
setpencolor(clBlack);//черный цвет
setpenwidth(1);//толщина линий=1
setbrushstyle(bsClear);//уберем закрашивание замкнутых фигур
r:=14;//радиус окружностей
for i:=1 to 35 do //35 штук
 begin
  circle(i*r,r,r); //по горизонтали вверху
  circle(i*r,280,r); //по горизонтали внизу
  if i<=20 then //20 окружностей
   begin
    circle(r,i*r,r);//по вертикали справа
    circle(500,i*r,r);//по вертикали слева
   end;
 end;
setpenwidth(2); //толщина=2
setpencolor(clFuchsia); //сиреневый
rectangle(26,26,windowwidth-29,windowheight-26);//прямоугольник снаружи голубого прямоугольника
setbrushstyle(bsSolid);//закраска
setbrushcolor(clAqua); //фон
setpencolor(clBlack);//черный контур
rectangle(27,27,windowwidth-31,windowheight-28)//цветной прямоугольник в центре
end.