Графические возможности Туврбо Паскаль (практикум)

1. Загрузить систему Турбо Паскаль;
2. Загрузить программу U13_1;
3. Запустить программу на исполнение;
4. Сравнить результат работы программы и Ваши предложения.
5. Меняя значение параметра GD в интервале от 0 до 3, выясните, как меняется изображение на экране.Для более точного наблюдения можно убрать из программы процедуру RANDOMIZE и уменьшить количество повторений в операторе цикла с 200 до 5 или 10. Выясните для себя, в чем различие этих графических режимов.
Program U13_1;
Uses CRT,GPAPH;
Var
GD,GM:Integer;
C:CHAR;
Begin
GD:=9;GM:=1;
InitGraph(GD,GM,'C:\tp70\BGI');
ClearDevice;
Randomize;
SetBkColor(Random(7));
for n:=0 to 200 do
Begin
Setcolor(Random(15));
Line(Random(640),Random(520),Random(640),Random(520));
End;
С:=Readkey;
CloseGraph;
End.