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

uses graphabc; begin setpenwidth(3); setwindowsize(400,500); ellipse(120,350,280,480); circle(200,300,60); circle(200,210,40); setbrushcolor(clblack); circle(190,200,5); circle(210,200,5); line(200,210,220,220); line(200,220,220,220); line(200,210,200,220); floodfill(204,214,clblack); setpenwidth(5); line(190,235,215,235); line(70,320,170,250); line(230,250,330,300); end.