Дуги и фигуры из них - Pascal ABC

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

Ребят, привет. Вызвался помочь сестре со школьной задачей. И не справился) Проходят геометрические фигуры, дуги. Помогите на Pascal ABC изобразить вторую (правую) картинку. С первой я справился.

Код к задаче: «Дуги и фигуры из них - Pascal ABC»

textual
Program Caterpillar;
uses GraphABC;
begin
 SetPenWidth(10);
 SetBrushColor(clwhite);
     SetPenColor(clAqua);
     arc(90,150,80,330,210);
     arc(90,240,80,30,270);
     arc(160,280,80,90,330);
     arc(225,240,80,150,30);
     arc(230,150,80,210,90);
     arc(160,110,80,270,150);
     SetPenColor(clwhite);
     SetPenWidth(0);
     SetBrushColor(clwhite);
     Circle(160,190,60);
     SetPenWidth(10);
     SetPenColor(clYellow);
     SetBrushColor(clWhite);
     arc(160,160,30,30,270);
     arc(190,175,30,330,210);
     arc(190,205,30,270,150);
     arc(160,225,30,210,90);
     arc(130,210,30,150,30);
     arc(130,180,30,90,330);
     SetPenColor(clAqua);
     circle(160,190,5);
 
end.

10   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ