MODULE TConst; CONST Max = 10; Neg = -5; Hex = 0AH; VAR ExitCode : INTEGER; BEGIN ExitCode := Max + Neg + Hex END TConst.