модуль граф в паскале

Ответ от GenUs[гуру]
uses graph;
соответсвенно пути прописать нужно для модулей
Пример:
Program Ris1;
uses Crt,Graph;
var gd,gm:integer; {gd-графический драйвер, gm-графическая мода}
begin
gd:=detect; {Автоматически определяем графический драйвер}
InitGraph(gd,gm,'c: p7); {Инициируем графический режим, указы-
ваем полный путь файла egavga.bgi}
SetLineStyle(0,0,3); {Задаем толщину линии}
SetColor(LightMagenta); {Задаем цвет линии}
SetFillStyle(1,LightGreen); {Задаем стиль и цвет закраски}
PieSlice(100,100,30,120,70); {Рисуем сектор окружности, X,Y,Ф1,Ф2,R}
SetColor(White); {Задаем цвет линии}
SetFillStyle(5,11); {Задаем стиль и цвет закраски}
Sector(400,100,90,290,200,80); {Рисуем сектор эллипса, X,Y,Ф1,Ф2,R1,R2}
Readkey; {Обеспечиваем задержку изображения и выход из программы при
нажатии любой клавиши, например Esc, Enter, Пробела}
CloseGraph {Закрываем графический режим}
end.