s_bad_op.LST 199 B

123456789101112
  1. Listing:
  2. 1 MODULE SBadOp;
  3. 2 VAR s : SET OF [0 .. 7]; x : INTEGER;
  4. 3 BEGIN
  5. 4 s := s + x
  6. ***** ^ arithmetic operand must be numeric
  7. 5 END SBadOp.
  8. 1 error