Программа

USES Crt,Graph;             { Подключение модулей }
CONST PathToDriver='C:\APLIED\BP\BGI\'; { Путь к графическому драйверу }
VAR Exit:boolean;           { Флаг выхода из программы }
    GraphDriver:integer;    { Графический драйвер }
    GraphMode:integer;      { Графический режим }
PROCEDURE SwitchingPage;{ Переключение отображаемой и активной видеостраниц }
  Const Page:boolean=FALSE; { Флаг страниц }
  Begin
    SetVisualPage(Ord(Page));           { Установка отображаемой страницы  }
    SetActivePage(Ord(not Page));       { Установка активной страницы }
    Page:=not Page                      { Переустановка флага }
  End;
BEGIN
  ClrScr;               { Очистка экрана }
  Exit:=FALSE;          { Сброс флага выхода }
  GraphDriver:=Detect;  { Автоматическое оперделение драйвера }
  GraphMode:=0;         { Задание графического режима }
  InitGraph(GraphDriver,GraphMode,PathToDriver); { Инициалиэация графики }
  RectAngle(0,0,GetMaxX,GetMaxY);
  repeat { Цикл обработки клавиатуры }
    case ReadKey of { Выбор действия по нажатой клавише }
       #27:Exit:=TRUE { Подьем флага выхода }
    end
  until Exit;
  CloseGraph           { Закрытие графического режима }
END.