program barvy;

uses
  graph;

var
  i, MaxBarva: integer;
  gd, gm: integer;

begin
  gd := detect;
  InitGraph(gd, gm, 'd:\tp\bgi');
  if GraphResult <> grOK then begin
    write('Grafiku se nepodarilo nastartovat.');
    readln;
    halt;
  end;
  { nasledujici prikaz muze byt proveden az po inicializaci grafiky, protoze
    se tyka toho grafickeho rezimu, na ktery byla grafika inicializovana }
  MaxBarva := GetMaxColor;
  for i := 0 to MaxBarva do begin
    SetColor(i);                  { zmenime aktivni barvu }
    Line(10, 10, 400, 10+5*i);    { vykreslime usecku }
  end;
  readln;
  closegraph;
end.