uses oglgraph;          { Подключаем нашу библиотеку }

var 
  gd, gm: smallint;
  maxx, maxy : integer;
  
begin
  gd := Detect;
  gm := DetectMode;
  initgraph(gd, gm, ''); 

  maxx := getmaxx();     { Выясняем ширину экрана}
  maxy := getmaxy();     { Выясняем высоту экрана} 
  
  {Внимание! Функции getmaxx и getmaxy правильно работают только после вызова initgraph }

  setcolor(blue);        { устанавливаем синий цвет для рисования линий }

  rectangle(1, 1, maxx - 1, maxy - 1); { Рисуем прямоугольник с отступом в 1 пиксель от края экрана}
  
  
  repeat until graphkeypressed;        { Сохраняем рисунок на экране до нажатия кнопки} 

  closegraph();           
end.