(* 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 *)