r_arith.LST 163 B

1234567891011
  1. Listing:
  2. 1 MODULE RArith;
  3. 2 VAR ExitCode : INTEGER;
  4. 3 BEGIN
  5. 4 ExitCode := 2 * 3 + 4 - 10 DIV 3 + 7 MOD 3
  6. 5 END RArith.
  7. 0 errors