t_arith.mod 67 B

123456
  1. MODULE T;
  2. VAR i : INTEGER;
  3. r : REAL;
  4. BEGIN
  5. i := i + r
  6. END T.