code 34061;
    procedure SOLELM(A, N, RI, CI, B); value N; integer N;
    array A, B;
    integer array RI, CI;
    begin integer R, CIR;
        real W;
        SOL(A, N, RI, B);
        for R:= N step - 1 until 1 do 
        begin CIR:= CI[R]; if CIR ^= R then 
            begin W:= B[R]; B[R]:= B[CIR]; B[CIR]:= W end 
        end 
    end SOLELM;
        eop