code 34243;
    procedure GSSSOLERB(A, N, AUX, B); value N; integer N;
    array A, AUX, B;
    begin integer array RI, CI[1:N];
        GSSERB(A, N, AUX, RI, CI);
        if AUX[3] = N then SOLELM(A, N, RI, CI, B)
    end GSSSOLERB;
        eop