PROGRAM TESTCASE; {use this to test that case indexes out of range are caught}
VAR
    CI:INTEGER;

BEGIN
  REPEAT
    WRITE('enter a label: ');
    READLN(CI);
    CASE CI OF
      0: WRITELN('0');
      1: WRITELN('1');
      2: WRITELN('2');
      3: WRITELN('3');

      7: WRITELN('7');
      8: WRITELN('8');
      9: WRITELN('9');
      10: WRITELN('10');
     END;
   UNTIL CI = 99;
 END.