'BEGIN'
    'INTEGER'
        N1,
        N2;
    'PROCEDURE' P(X, L);
        'VALUE'
            X;
        'INTEGER'
            X;
        'LABEL'
            L;
        'BEGIN'
        'IF' X = N1 'THEN'
            P(X - 1, L1)
        'ELSE' 'IF' X = N2 'THEN'
            'GOTO' L
        'ELSE'
            P(X - 1, L);
        L1 :;
                OUTREAL(99, X)
        'END' P;
    N1 := 4;
    N2 := 2;
    P(5, L2);
    N2 := 0;
    P(7, L2);
    L2:;
'END'