Как сделать снеговика в паскале

program p23; uses graphabc; begin setbrushcolor(clAquamarine); circle(200,125,35); circle(200,195,35); circle(200,265,35); setbrushcolor(clblack); circle(200,200,5); circle(200,270,5); circle(185,120,5); circle(215,120,5); setpencolor(clorange); setbrushcolor(clorange); line(200,135,190,140); line(190,140,210,135); line(200,135,210,135); setbrushcolor(clred); rectangle(175,25,225,100); setpencolor(clblack); line(230,175,250,225); line(170,175,150,225); end. Не проверяла)))