q_const.LST 192 B

123456789101112
  1. Listing:
  2. 1 MODULE QConst;
  3. 2 CONST Max = 10; Neg = -5; Hex = 0AH;
  4. 3 VAR ExitCode : INTEGER;
  5. 4 BEGIN
  6. 5 ExitCode := Max + Neg + Hex
  7. 6 END QConst.
  8. 0 errors