Данная программа запускает графический модуль

если он установлен.

Program Gr;

Uses GraphABC;

begin SetWindowSize (256,256);

SetPenColor (RGB(0,0,255));

Line (0,0, WindowWidth, WindowHeight)

Line (0,WindowHeight, WindowWidth, 0)

end.