Переключение среды в графический режим - Turbo Pascal

Формулировка задачи:

как переключить турбо паскаль в графический режим ,у меня в дерективе написана примерно так : с:tp/7 units

Решение задачи: «Переключение среды в графический режим»

Листинг программы

USES        Graph;
VAR         Device, Mode    : Integer;
BEGIN
    WriteLn(‘Это текстовый режим’); 
                {Инициализируем графический режим:}
    ReadLn;
    Device:=0;
    InitGraph(Device,   Mode,    ’<путь к графическим драйверам>’);
    Circle(100,80,50);  {Обращение к процедуре рисования окружности. Пока без пояснений}
    ReadLn;
                {Закрываем графический режим, что рекомендую:}
    CloseGraph;
    WriteLn(‘Это снова текстовый режим’); 
    ReadLn
END.

Объяснение кода листинга программы

Используется библиотека Graph.
Объявляются две переменные: Device и Mode, которые представляют собой целочисленные значения.
Выводится сообщение Это текстовый режим.
Пользователю предлагается ввести значение для переменной Device с помощью функции ReadLn.
Инициализируется графический режим с помощью функции InitGraph, которая принимает три аргумента: Device, Mode и строку, представляющую путь к графическим драйверам.
Вызывается процедура Circle, которая принимает три аргумента: x, y и радиус окружности. В данном случае, радиус окружности равен 50.
Пользователю предлагается ввести значение для переменной Mode с помощью функции ReadLn.
Закрывается графический режим с помощью функции CloseGraph.
Выводится сообщение Это снова текстовый режим.
Пользователю предлагается ввести значение для переменной Mode с помощью функции ReadLn.
Программа завершается.