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

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.

Не проверяла)))