q_bad_set.mod 100 B

123456
  1. MODULE QBadSet;
  2. VAR s : SET OF [0 .. 7]; x : INTEGER;
  3. BEGIN
  4. x := 1;
  5. s := {1, 2, 3}
  6. END QBadSet.