Помогите нарисовать снеговика в PascalABC Как в учебнике для 7 класса

Program lol; uses graphabc; begin setwindowsize (600,600); circle ( 100,100,50); circle (200,200,100); дальше через rectangle(x,y,x2,y2); end.