Объясните смысл прогаммы в Turbo Pascal

Доброго времени суток.

А открыть справку и почитать не судьба? Ладно уж, прораммка маленькая.. .

uses graph; {подключается модуль графики}
var gd, gm:integer; {объявляются переменные}
Begin {начало программы}
gd:=detect; {определяется требуемый графический драйвев}
initgraph(gd, gm, 'c/:bp'); {инициализируется графический режим}
Setcolor(4); {устанавливается красный цвет рисования}
Setlinestyle(1, 0, 3); {стиль линии: точечный, шириной 3}
Line(320, 240, 320, 180); {рисование линий из точки с первыми двумя координатами в точку со вторыми}
Line(320, 240, 390, 240);
Line(390, 240, 320,180);
end. {конец программы}

В результате по-идее должен получиться прямоугольный треугольник. Только вы его не увидите, т. к. программа завершиться после рисования последней лини. Поставьте перед енд с точкой ReadLn;

И правила хорошего тона рекомендуют перед завершением программы выйти из графического режима, вызвав процедуру CloseGraph;

Удачи!

Program treug; {название программы}
uses graph; {подключаем графический модуль graph}
var gd, gm:integer; {объявляем переменные gd, gm целого типа (gd это graphdriver, gm это graphmode - что то типа параметры инициализации модуля) }
Begin {начало выполнения программы}
gd:=detect; {gd задаётся автоматически}
initgraph(gd, gm, 'c/:bp'); {строка инициализации графики}
Setcolor(4); {устанавливаем цвет 4}
Setlinestyle(1, 0, 3); {устанавливаем стиль линии}
Line(320, 240, 320, 180); {рисуем линию с началом x=320 y=240 и концом x=320 y=180}
Line(320, 240, 390, 240); {аналогично}
Line(390, 240, 320,180); {аналогично}
end. {конец программы}