uses GraphABC;
begin
SetPenWidth(5);               // голова
SetPenColor(clPurple);
Circle (250, 130, 50);
SetPenWidth(2);               // щека
Circle (220, 150, 20);
SetPenWidth(2);               // усы
SetPenColor(clBlack);
Line(270,130,220,150);
Line(270,145,223,153);
Line(260,160,222,157);
SetPenColor(clPurple);        // нос
Ellipse(202,141,190,150);
SetPenWidth(5);               // тело
Circle (320, 230, 75);
SetPenWidth(3);               // рука
Circle (250, 230, 25);
SetPenWidth(2);               // хвост
Ellipse(390,270,410,230);
SetPenWidth(5);              //задняя лапа
circle(340,315,45);
setpencolor(clwhite);
rectangle(200,320,400,400);
SetPenColor(clPurple);
line(295,315,385,315);
 
arc(295,55,40,60,-120);    //уши
arc(305,60,40,-120,40);
line(275,85,315,20);
line(275,85,335,35);
 
SetPenWidth(3);           //глаз
line(215,130,235,90);
line(235,90,255,130);
line(255,130,215,130);
 
setpencolor(clblack);
setbrushcolor(clblack);
circle(230,120,7);
setpencolor(clwhite);
line(230,120,240,107);
line(230,120,240,115);
end.