DDS

program kot;
uses crt, graph;
var gd,gm:integer;
x,y,dx,dy,r,color:integer;
begin
gm:=0;
gd:=detect;
initgraph(gd,gm, '');
cleardevice;
setbkcolor(white);
setcolor(8);
{ухо 1}
line(160,60,150,80);
line(160,60,170,80);
line(150,80,170,80);
{ухо 2}
line(200,60,190,80);
line(200,60,210,80);
line(190,80,210,80);
{голова}
circle(180,100,30);
{глаза}
circle(170,90,7);
circle(170,90,3);
circle(190,90,7);
circle(190,90,3);
{нос и усы}
circle(180,110,7);
line(173,110,130,100);line(173,110,130,110);line(1 73,110,130,120);
line(187,110,230,100);line(187,110,230,110);line(1 87,110,230,120);
{тело}
circle(180,180,50);
{внутр. круг тела}
circle(180,180,30);
{хвост}
fillellipse(110,205,30,15);
readkey;
closegraph;
end.

Наилучшее, что получилось. Переменные и процедуру не использовал, т.к. не нравится мне их использование при рисовании. а раскрасить котика думаю, сможете сами.