CocoR/Test2/tests/q_for.LST

Listing:

    1  MODULE QFor;
    2  VAR k, s : INTEGER; ExitCode : INTEGER;
    3  BEGIN
    4    s := 0;
    5    FOR k := 1 TO 10 DO s := s + k END;
    6    FOR k := 10 TO 1 BY -2 DO s := s + k END;
    7    ExitCode := s
    8  END QFor.

    0 errors