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

Question

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

Answer 1

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