{Getmxx.PAS}{ Пример программы для функции GetMaxX }Uses Graph;
Var Gd, Gm :Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm,'');
If GraphResult <> grOk Then Halt(1);
{ Рисуем прямоугольник на весь экран }
Rectangle(0, 0, GetMaxX, GetMaxY);
ReadLn;
CloseGraph;
End.