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 to *)
    2 : WRITE(' Two');    (* 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 *)