(* Chapter 4 - Program 8 *)
program Demonstrate_Case;

var Count : integer;

begin  (* main program *)
   for Count := 0 to 8 do begin
      Write(Count:5);
         case Count of
           1 : Write(' One');    (* Note that these do not have *)
           2 : Write(' Two');    (* to be in consecutive order *)
           3 : Write(' Three');
           4 : Write(' Four');
           5 : Write(' Five');
         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

    0 This number is not in the allowable list
    1 One
    2 Two
    3 Three
    4 Four
    5 Five
    6 This number is not in the allowable list
    7 This number is not in the allowable list
    8 This number is not in the allowable list

}