t_arith.mod 188 B

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