arithmetic.ob 254 B

12345678910111213141516171819202122
  1. MODULE m;
  2. VAR
  3. i1, i2: INTEGER;
  4. r1, r2: REAL;
  5. BEGIN
  6. i1 := 1;
  7. i2 := 2;
  8. i1 := i1 + i2;
  9. i1 := i1 - i2;
  10. i1 := i1 * i2;
  11. i1 := i1 DIV i2;
  12. i1 := i1 MOD i2;
  13. r1 := 1.0;
  14. r2 := 2.0;
  15. r1 := r1 + r2;
  16. r1 := r1 - r2;
  17. r1 := r1 * r2;
  18. r1 := r1 / r2
  19. END m.