Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 105 стр.

        SetColor(Black); {смена цвета на черный для повторного
                          pисования рук в том же положении
                          ("стирания" их с экрана) }
        Line(250, 157, Horizont[i], Vert[i]); {левая рука }
        Line(250, 157, 500-Horizont[i], Vert[i]); {правая рука}
      end
  until Keypressed;
  SetColor(LightCyan);
  Line(250, 157, Horizont[3], Vert[3]); {левая рука поднята }
  Line(250, 157, 500-Horizont[3], Vert[3]); {правая рука поднята}
  For i := 1 to 10 do { звуковая трель }
    begin
      Sound(1000);
      Delay(50);
      Sound(1500);
      Delay(50)
    end;
  NoSound; { выключение звука }
  CloseGraph;
END.


  Пример 8.8. Эта программа демонстрирует возможности изображения
              объёмных предметов и столбиковых диаграмм.




  Внимание: будет работать только если Turbo Pascal установлен в каталог
   C:\TP и каталог C:\TP\BGI содержит необходимый файл egavga.bgi.
Program Design;
  Uses
    Graph, Crt; {подключение к программе библиотек Crt и Graph}
  Const
    Height           : Array[1..8] of Integer=(40,150,90,240,190,120,50,90);
                             {массив высот столбиков диаграммы}
  Var
    Color            : Word; {код цвета}
    Key              : Char;
    i, x, y, y1, h   : Integer;
    GrDriver, GrMode : Integer; {тип и режим работы графического драйвера}
    GrError          : Integer; {код ошибки графики}
BEGIN
  GrDriver := Detect; InitGraph(GrDriver, GrMode, 'C:\TP\BGI');
  GrError := GraphResult; If GrError <> GrOk then Halt;