Program UseGraphicsl;
{заголовок программы, имя программы – UseGraphics1}
Uses {начало раздела подключения модулей}
Graph; {подключение модуля Graph}
Var {начало раздела описания переменных}
GraphDriver, GraphMode: Integer;
{описание двух целочисленных переменных: GraphDriver – для передачи в качестве параметра, определяющего номер графического драйвера, и GraphMode – для передачи в качестве параметра, определяющего номер графического режима}
Begin{начало раздела описания логики программы}
GraphDriver := Detect;
{присвоение переменной GraphDriver значения 0 через использование константы Detect модуля Graph для наглядности}
GraphMode := 0;
{присвоение переменной GraphMode значения 0, определяющего необходимый графический режим - 640х480х16 цветов}
InitGraph(GraphDriver, GraphMode, ' ');
{вызов процедуры InitGraph, автоматически определяющей драйвер, подходящий для видеоустройства, установленного на компьютере; запускающей драйвер; и инициализирующей графический режим с номером 0}
End. {конец раздела описания логики программы}
Таким образом, рекомендуется вызывать данную процедуру в конце программы, когда графический режим уже не будет использоваться. Изменим предыдущий пример (см. листинг 043).
