Program farby;
 uses  Graph;
 var  GraphDriver, GraphMode : Integer;
      i : integer;
      s : string;
Begin
 GraphDriver := Detect;
 InitGraph(GraphDriver, GraphMode, 'd:\betlista\bp70\bgi');
 if GraphResult <> grOk then Halt(1);
 for i:=1 to 16 do
  Begin
   SetColor(i);
   Str(i,s);
   OutTextXY(10,12*i,s);
  End;
 readln;
End.