Сделать программу с любым рисунком (в паскаль авс. )

Заяц:

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.