Нарисовать рот гусенице - PascalABC.NET

Формулировка задачи:

Помогите сделать рот гусеницы как на скрине и чтобы круги скрещивались и в общем полупрозрачны были как на картинке...уже два дня не могу сделать, буду очень благодарна...очень срочно нужно(

program Gusinica;
uses GraphABC;
var i:integer;
begin
SetWindowWidth(800);
SetWindowHeight(460);
LockDrawing;
i:=50;
SetBrushColor(clLimeGreen);
circle(i+50,280,30);
SetBrushColor(clLimeGreen);
circle(i+110,280,30);
SetBrushColor(clLimeGreen);
circle(i+170,280,30);
SetBrushColor(clLimeGreen);
circle(i+230,280,30);
SetBrushColor(clLimeGreen);
circle(i+230,220,30);
SetBrushColor(clLimeGreen);
circle(i+230,160,30);
//Голова
SetBrushColor(clLimeGreen);
circle(i+230,100,30);
//Глазки
SetBrushColor(clblack);
circle(i+216,92,4);
SetBrushColor(clblack);
circle(i+244,92,4);
//Носик
SetBrushColor(clblack);
circle(i+230,105,1);
//Ротик
Arc(i+230,120,4,160,10);
SetBrushColor(clblack);
//Ушки
Line(i+211,35,i+221,72);
SetBrushColor(clblack);
Line(i+251,35,i+241,72);
SetBrushColor(clblack);
circle(i+211,35,4);
SetBrushColor(clblack);
circle(i+251,35,4);
 
RedRaw;
ClearWindow(clwhite);
end.

Решение задачи: «Нарисовать рот гусенице»

Листинг программы

program Gusinica;
uses GraphABC;
var i:integer;
begin
SetWindowSize(400,400);
Window.Center;
i:=30;
SetBrushColor(clLimeGreen);
circle(i+230,160,30);
circle(i+230,220,30);
circle(i+230,265,30);
circle(i+185,265,30);
circle(i+140,265,30);
circle(i+95,265,30);
SetBrushStyle(bsClear);
circle(i+230,220,30);
circle(i+230,265,30);
circle(i+185,265,30);
circle(i+140,265,30);
//Голова
SetBrushStyle(bsSolid);
SetBrushColor(clLimeGreen);
circle(i+230,100,30);
//Глазки
SetBrushColor(clblack);
circle(i+216,92,4);
SetBrushColor(clblack);
circle(i+244,92,4);
//Носик
SetBrushColor(clblack);
circle(i+230,105,1);
//Ротик
Arc(i+230,100,20,220,320);
//Arc(i+230,120,4,160,10);
SetBrushColor(clblack);
//Ушки
Line(i+211,35,i+221,72);
SetBrushColor(clblack);
Line(i+251,35,i+241,72);
SetBrushColor(clblack);
circle(i+211,35,4);
SetBrushColor(clblack);
circle(i+251,35,4);
end.

Объяснение кода листинга программы

Устанавливается размер окна 400x400 пикселей и его центр.
Задаётся значение переменной i равное 30.
Устанавливается цвет кисти в зелёный.
Рисуются пять кругов разного размера с координатами (230,160), (230,220), (230,265), (185,265), (140,265) и (95,265) с радиусом 30 пикселей.
Устанавливается стиль кисти в clear.
Рисуются три круга с координатами (230,220), (230,265), (230,100) и (230,105) с радиусом 30 пикселей.
Рисуются два круга с координатами (216,92) и (244,92) с радиусом 4 пикселя.
Рисуется отрезок с координатами (211,35) и (221,72) и (251,35) и (241,72) с радиусом 4 пикселя.
Устанавливается цвет кисти в чёрный.
Рисуется отрезок с координатами (211,35) и (251,35) и (211,72) и (251,72) с радиусом 4 пикселя.
Рисуется отрезок с координатами (230,100) и (230,120) с длиной 4 пикселя и шириной 1 пиксель.
Рисуется отрезок с координатами (230,100) и (230,105) с длиной 5 пикселей и шириной 1 пиксель.
Рисуется отрезок с координатами (230,100) и (230,120) с длиной 20 пикселей и шириной 2 пикселя.
Рисуется отрезок с координатами (230,120) и (230,160) с длиной 4 пикселя и шириной 1 пиксель.
Рисуется отрезок с координатами (230,160) и (230,100) с длиной 60 пикселей и шириной 1 пиксель.