{Low.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the Low function.}

 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 [3] = (
     'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat', 'Sun');
 var
   Day: TDay;
   Hours: array[TDay] of 0..24;
 begin
   for
  Day := Low(TDay) to
  High(TDay) do
   begin
     Write('Hours worked on ', DayName[Day], '? ');
     ReadLn(Hours[Day]);
   end;
 end.