getmxcol.pas

 {Getmxcol.PAS}
 
{ Пример программы для функций GetMaxColor и SetColor }
 
Uses Crt, Graph;
 
Var GraphDriver, GraphMode : Integer;
 
Begin
 GraphDriver:=Detect;
 InitGraph(GraphDriver, GraphMode, '');
 If GraphResult <> grOk Then Halt(1);
 Randomize;
 Repeat
  SetColor(Random(GetMaxColor)+1);
  LineTo(Random(GetMaxX), Random(GetMaxY));
 Until KeyPressed;
End.