Программа рисует закрашенный прямоугольник, меняя случайным образом цвет, тип штриховки и высоту тона звукового сопровождения — Pascal(Паскаль)

{        Внимание! Для работы этой программы необходимо, чтобы:

          1) Turbo Pascal был установлен в каталог  C:\TP;
          2) каталог C:\TP\BGI содержал файл  egavga.bgi ;
          3) в меню  Options/Directories  был указан путь
             к файлу  graph.tpu,  например,  С:\TP\UNITS.

        Если Turbo Pascal установлен в другом каталоге, нужно изменить
        путь к нему в процедуре  InitGraph  (7-я строка программы).
}

 Program MusicColor;
   Uses Crt, Graph;        { подключение к программе библиотек Crt и Graph }
   Var
     GrDriver, GrMode: Integer; { тип и режим работы графического драйвера }
 BEGIN
   GrDriver := Detect;        { автоопределение типа графического драйвера }
   InitGraph(GrDriver, GrMode, 'C:\TP\BGI'); {установка графического режима}
   SetColor(White);           { установка белого цвета рамки }
   Rectangle(130, 130, 460, 370);          { рисование рамки }
   Randomize;        { инициализация датчика случайных чисел }

   Repeat          { цикл прерывается нажатием любой клавиши }
     Sound(Random(2000));           { изменение высоты звука }
     Delay(Random(1000));           { задержка               }
     SetFillStyle(Random(4), Random(16)); { смена типа штриховки и цвета }
     Bar(140, 140, 450, 360);    { рисование закрашенного прямоугольника }
   until KeyPressed;

   NoSound;            { отмена звука }
   CloseGraph; ReadLn; { закрытие графического режима }
 END.