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.