Модуль Graph: нарисовать улитку

program ulitka;
uses graph;
var grDriver:integer;
    grMode:integer;
begin
grDriver:=detect;
initGraph(grDriver,grMode,'c:\tp\bgi');
SetbkColor(14);
setColor(3);
line(20,300,70,3 00);
Circle(270,180,60);
circle(270,200,30);
circle(400,100,15);
circle(395,100,3);
circle(405,100,3);
line(270,60,400,100);
setcolor(6);
readln;
end.

program ulitka;
uses graph;
var
  grDriver:integer;
  grMode:integer;
begin
  grDriver:=detect;
  initGraph(grDriver,grMode,'c:\tp\bgi');
  SetbkColor(2);
  setColor(1);
  bar(240,220,300,225);
  SetFillStyle(0,0);
  FillEllipse(270,190,40,30);
  circle(270,195,20);
  circle(350,150,15);
  Line(335,150,300,220);
  Line(335,160,300,225);
  setcolor(15);
  circle(345,150,3);
  circle(355,150,3);
  setcolor(15);
  setcolor(1);
  line(340,140,330,130);
  line(360,140,370,130);
  SetColor(8);
  circle(345,150,1);
  circle(355,150,1);
  readln;
end.

setcolor(цифра цвета);