code 34242;
    procedure GSSERB(A, N, AUX, RI, CI); value N; integer N;
    array A, AUX;
    integer array RI, CI;
    begin 
        GSSELM(A, N, AUX, RI, CI);
        if AUX[3] = N then ERBELM(N, AUX, ONENRMINV(A, N))
    end GSSERB;
        eop