low.pas

 {Low.PAS}
 
 { Пример программы для функции Low }
 
 Var A : Array [1..100] Of Integer;
     I : Integer;
 
 Begin
  For I:=Low(A) To High(A) Do A[I]:=0;
 End;
 
 Type TDay = (Monday, Tuesday, Wednesday, Thursday,
              Friday, Saturday, Sunday);
 
 Const DayName : Array [TDay] Of String [2] = ('Пн', 'Вт', 'Ср', 'Чт',
                                               'Пт', 'Сб', 'Вс');
 
 Var Day : TDay;
   Hours : Array [TDay] Of 0..24;
 For Day:=Low(TDay) To High(TDay) Do
  Begin
   Write('Сколько часов проработал в ', DayName[Day], ' ? ');
   ReadLn(Hours[Day]);
  End;
End.