Нарисовать снеговика в pascalabc как в учебнике для 7 класса

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