PROGRAM thisProgram;
VAR
    var1, a, b, c : INTEGER;

BEGIN {example}
    a := 2;
    var1 := 1;
    b := 5;
    c := 20;

    LOOP b DO
        var1 := var1 + a;
        c := c - 1;
    END;

    LOOP a DO
        b := b + 2
    END
END. {example}