(* Chapter 4 - Program 9 *)
program A_Bigger_Case_Example;

var Count : integer;
    Index : byte;

begin  (* main program *)
   for Count := 1 to 10 do begin
      Write(Count:5);
         case Count of
           7..9  : Write(' Big Number');
           2,4,6 : begin Write(' Small');
                         Write(' even');
                         Write(' number.');
                   end;
           3 : for Index := 1 to 3 do Write(' Boo');
           1 : if TRUE then begin Write(' TRUE is True,');
                                  Write(' and this is dumb.');
                            end;
         else Write(' This number is not in the allowable list');
         end; (* of case structure *)
      Writeln;
   end;  (* of Count loop *)
end.  (* of main program *)




{ Result of execution

   1 TRUE is true, and this is dumb.
   2 Small even number.
   3 Boo Boo Boo
   4 Small even number.
   5 This number is not in the allowable list
   6 Small even number.
   7 Big number
   8 Big number
   9 Big number
  10 This number is not in the allowable list

}