CASE I OF
   BEGIN
      J := 1;   % STATEMENT 0
      J := 20;  % STATEMENT 1
      BEGIN    % STATEMENT 2
         J := 3;
         K := 0;
      END;
      J := 4;   % STATEMENT 3
   END;

CASE I OF
   BEGIN
      1:
      2:
      5:
      7:
         J := 3;
         Q := J-1;
      3:
      4:
      20:
         J := 4;
      ELSE:
         GO TO BADCASEVALUE;
   END;