Нарисуйте цветную кошечку в Паскале АВС

прости не поставил enter забыл

мне пишет"Неизвестное имя 'clMedGray'"

ааааааа,помогитееее

uses graphABC;beginsetwindowsize(600,500);setbrushcolor(clMedGray);Ellipse(320,30,490,400);Ellipse(120,30,300,400);setbrushcolor(clCream);Ellipse(335,40,480,380);Ellipse(140,40,280,380);setbrushcolor(clMedGray);Ellipse(100,430,500,130);setbrushcolor(clNavy);Ellipse(250,240,200,310);Ellipse(350,240,400,310);setbrushcolor(clwhite);Ellipse(240,270,220,300);Ellipse(360,270,380,300);setbrushcolor(clblack);Ellipse(270,330,330,370);line(300,370,300,400);Arc(300,280,120,220,-40);line(50,350,200,350);line(30,340,190,340);line(10,330,180,330);line(410,330,570,330);line(400,340,560,340);line(390,350,550,350);line(240,230,220,150);line(230,230,180,80);line(220,230,180,150);line(360,230,380,150);line(370,230,430,80);line(380,230,430,150);end.