CocoR/Test2/tests/q_arith.LST

Listing:

    1  MODULE QArith;
    2  VAR x, y : INTEGER; ExitCode : INTEGER;
    3  BEGIN
    4    x := 1 + 2 * 3 - 4 DIV 2;
    5    y := (x + 10) * 2 MOD 7;
    6    ExitCode := x + y
    7  END QArith.

    0 errors