Как сделать клоуна в паскале ABC

мне нужен другой

Выделить код123456789101112131415161718192021222324252627282930313233Program aaa;uses GraphABC;var i:integer;beginlockdrawing;for i:=1 to 500 dobeginCircle(315,288,75);Circle(315,288,25);Circle(300,260,10);Circle(330,260,10);Line(264,230,230,235);Line(362,230,400,236);Line(393,243,420,248);Line(399,237,392,245);Line(230,235,240,243);Line(210,245,240,243);Line(210,245,220,250);Line(178,255,219,250);Line(178,255,242,259);Line(418,248,404,250);Line(446,255,404,250);Line(440,255,384,258);Line(357,358,390,375);Line(240,374,273,359);Line(240,376,390,374);redraw;sleep(10);setbrushcolor(clwhite);fillrect(0,0,1000,1000);end;end.