'BEGIN'
    'COMMENT' LIBRARY 1;
    'REAL'
        I,
        J;
    'ARRAY'
        A[1 : 2, 1 : 3];
    'REAL' 'PROCEDURE' GPS(I, N, Z, V);
        'REAL'
            I,
            N,
            Z,
            V;
        'BEGIN'
        'FOR' I := 1 'STEP' 1 'UNTIL' N 'DO'
            Z := V;
        GPS := 1
        'END';
    OUTREAL(99, GPS(J, 3.0, I, GPS(I, 2.0, A[I, J], I + J)));
    'FOR' I := 1 'STEP' 1 'UNTIL' 2 'DO'
        'FOR' J := 1 'STEP' 1 'UNTIL' 3 'DO'
            'IF' A[I, J] # I + J 'THEN'
                OUTREAL(99, 11 * I + J)
'END'