program grafika;
 uses graph;

 var gd,gm:integer;

 begin 
      gd:=Detect; 
      InitGraph(gd,gm,''); 
      if GraphResult<>GrOk then begin 
            Write('Grafikus hiba'); 
            Halt(1); 
      end;

     {grafikus eljárások és függvények}

      CloseGraph; 
 end.