Нарисовать птицу

uses graphABC;
var i: integer;
begin
setwindowsize(300,400);
setbrushcolor(clskyblue);
ellipse(30,130,150,320);
ellipse(150,130,270,320);
setbrushcolor(clblue);
ellipse(50,100,250,350);
circle(150,100,70);
setbrushcolor(clskyblue);
ellipse(70,170,230,340);
ellipse(110,60,145,105);
ellipse(155,60,190,105);
setbrushcolor(clwhite);
ellipse(115,50,145,100);
ellipse(155,50,185,100);
setbrushcolor(clskyblue);
circle(130,80,10);
circle(170,80,10);
setbrushcolor(clblack);
circle(130,80,5);
circle(170,80,5);
setbrushcolor(clyellow);
circle(150,130,20);
setpenwidth(3);
arc(150,142,17,0,180);
setpencolor(clblue);
for i:=-5 to 5 do
    line(150,50,150+(i*6),10);
setpenwidth(1);
setpencolor(clblack);
setbrushcolor(clyellow);
for i:=-3 to 3 do
    if i<>0 then
       ellipse(145+(i*20),350,165+(i*20),370);
end.