'BEGIN'
    'COMMENT' LIBRARY 9;
    'INTEGER''ARRAY'
        EQ[1 : 3];
    'INTEGER'
        I;
    'REAL'
        X,
        Y;
    'PROCEDURE' INC(A, B);
        'VALUE'
            A,
            B;
        'REAL'
            A,
            B;
        'IF' A < B 'THEN'
            EQ[1] := EQ[1] + 1
        'ELSE' 'IF' A = B 'THEN'
            EQ[2] := EQ[2] + 1
        'ELSE'
            EQ[3] := EQ[3] + 1;
    'FOR' I := 1 'STEP' 1 'UNTIL' 3 'DO'
        EQ[I] := 0;
    'FOR' I := 2 'STEP' 1 'UNTIL' 100 'DO'
        'BEGIN'
        INREAL(15, X);
        Y := 1 / (I * I - 1);
        OUTREAL(99, Y);
        INC(X, Y)
        'END';
    'FOR' I := 1 'STEP' 1 'UNTIL' 3 'DO'
        OUTREAL(99, EQ[I]);
'END'