MODULE TArith; CONST C = 10; VAR ExitCode : INTEGER; BEGIN ExitCode := C + 3 * 4 - 10 DIV 3 + 10H - C END TArith.