Нарисовать медведя

uses graphabc;
 
begin
setwindowsize(500,400);
clearwindow(clblue);
setpencolor(clwhite);
setpenwidth(3);
setbrushcolor(clbrown);
ellipse(60,40,100,90);
ellipse(160,40,200,90);
circle(130,110,70);
ellipse(90,110,170,160);
 
arc(130,100,50,240,-60);
line(130,135,130,145);
setbrushcolor(clskyblue);
circle(70,220,25);
circle(190,220,25);
circle(80,350,25);
circle(180,350,25);
line(110,175,130,200);
line(150,175,130,200);
floodfill(130,190,clwhite);
arc(80,200,40,80,210);
arc(180,200,40,-30,100);
arc(140,300,100,145,210);
arc(120,300,100,-30,35);
arc(130,330,30,200,-20);
floodfill(130,300,clbrown);
setbrushcolor(clblack);
ellipse(115,125,145,135);
 
setbrushcolor(clwhite);
setpencolor(clblack);
setpenwidth(2);
circle(105,80,15);
circle(155,80,15);
setbrushcolor(clblack);
ellipse(100,75,110,93);
ellipse(150,75,160,93);
 
setbrushcolor(clwhite);
circle(350,300,60);
line(300,260,400,330);
line(400,260,300,330);
floodfill(350,300,clred);
floodfill(350,270,clred);
floodfill(310,300,clyellow);
floodfill(390,300,clyellow);
setbrushcolor(clpurple);
circle(350,295,10);
end.