MODULE TArith; // Step-1 arithmetic: precedence, DIV truncation, 0x hex, CONST loads. CONST C = 10; VAR ExitCode : INTEGER; BEGIN ExitCode := C + 3 * 4 - 10 DIV 3 + 0x10 - C END TArith.