'BEGIN'
    'COMMENT' LIBRARY 1;
    'INTEGER'
        I;
    'INTEGER''ARRAY'
        A[1 : 10];
    I := 1;
    'FOR' A[I] := 1,
        2,
        3,
        4,
        5,
        6,
        7,
        8,
        9,
        10 'DO'
        I := I + 1;
    'FOR' I := 1 'STEP' 1 'UNTIL' 10 'DO'
        'IF' A[I] # I 'THEN'
            OUTREAL(99, I);
    OUTREAL(99, 0)
'END'