Заяц:
uses GraphABC;
begin
SetPenWidth(5); // голова
SetPenColor(clPurple);
Circle (250, 130, 50);
SetPenWidth(2); // щека
SetPenColor(clPurple);
Circle (220, 150, 20);
SetPenWidth(2); // усы
SetPenColor(clBlack);
Line(270,130,220,150);
SetPenColor(clBlack);
Line(270,145,223,153);
SetPenColor(clBlack);
Line(260,160,222,157);
SetPenColor(clPurple); // носик
Ellipse(202,141,190,150);
SetPenWidth(5); // тело
Circle (320, 230, 75);
SetPenWidth(3); // рука
Circle (250, 230, 20);
SetPenWidth(2); // хвостик
Ellipse(390,270,410,230);
end.