Uses GraphABC;
begin
arc(110,361,100,45,161);
arc(110,220,100,200,316);
arc(270, 300, 150, 165, 187);
line(15,253,15,328);
circle(148,288,5);
floodfill(149, 287, clBlack);
floodfill(100, 287, clskyblue); // туловище
floodfill(130, 287, clsilver); // голова
floodfill(30, 287, clsilver); //хвост
readln;
end.
попробуй, может быть получится