Program grafika;
uses crt, Graph;
const Vieta='c:\tp7\bgi';

Procedure Ekranas (var dx , dy : integer ; kelias: string);
var gd, gm : integer;
begin
 gd:= Detect;
 InitGraph (gd , gm, kelias);
 if graphresult <> grok then
   begin
    writeln ('Aparaturos klaida!!!!'); Halt (1);
    end;
 dx:=getmaxX ;
 dy:=getmaxy  ;
end;

var dx, dy, x, y, sp : integer;
begin
  Ekranas (dx, dy, Vieta ) ;

  Readln  ;
  repeat until Keypressed;
  Closegraph;
end.