getmdrng.pas

 {GetMdRng.PAS}
 
 { Пример программы для GetModeRange Procedure}
 
 Uses Graph;
 
 Var Lowest, Highest : Integer;
 
 Begin
  GetModeRange(EGA64, Lowest, Highest);
  Write('Наименьший номер режима = ', Lowest);
  Write('Наибольший номер режима = ', Highest);
 End.