t_bad_setelem.mod 69 B

1234
  1. MODULE TSet;
  2. VAR s : SET OF [0 .. 31];
  3. BEGIN s := {1, 'a'}
  4. END TSet.