r_arith.mod 102 B

12345
  1. MODULE RArith;
  2. VAR ExitCode : INTEGER;
  3. BEGIN
  4. ExitCode := 2 * 3 + 4 - 10 DIV 3 + 7 MOD 3
  5. END RArith.