program OkvirEkrana;
uses crt,graph;
var driver,mode:integer;
begin
  ClrScr;
  writeln(' Program prikazuje okvir ekrana');
  write(' (pritisni <enter> za nastavak)');
  readln;
  driver:=detect;
  initgraph(driver,mode,'');
  Line(0,0,GetMaxX,0);
  Line(GetMaxX,0,GetMaxX,GetMaxY);
  Line(GetMaxX,GetMaxY,0,GetMaxY);
  Line(0,GetMaxY,0,0);
  readln;
  closegraph;
end.