program inicializacia_grafiky; uses crt,graph; var grDriver, grMode: SmallInt; begin grDriver := Detect; InitGraph(grDriver, grMode,''); {graficke prikazy} Readln; CloseGraph; end.