program inicializacia_grafiky;
uses crt,graph;
var
 grDriver, grMode: SmallInt;
begin
 grDriver := Detect;
 InitGraph(grDriver, grMode,'');

 {graficke prikazy}

 Readln;
 CloseGraph;
end.