t_arith.mod 116 B

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