t_const.mod 124 B

123456
  1. MODULE TConst;
  2. CONST Max = 10; Neg = -5; Hex = 0AH;
  3. VAR ExitCode : INTEGER;
  4. BEGIN
  5. ExitCode := Max + Neg + Hex
  6. END TConst.