CocoR/Test1/tests/ok.LST

Listing:

    1  MODULE Demo;
    2  VAR x : INTEGER;
    3  BEGIN
    4    x := 1 + 2*3;
    5    IF x > 5 THEN x := 5 END;
    6    WHILE x > 0 DO x := x - 1 END
    7  END Demo.

    0 errors