code 34425;
 procedure DECSOLTRI(SUB, DIAG, SUPER, N, AUX, B);
 value N; integer N; array SUB, DIAG, SUPER, AUX, B;
 begin 
         DECTRI(SUB, DIAG, SUPER, N, AUX); if AUX[3]= N then 
         SOLTRI(SUB, DIAG, SUPER, N, B)
 end DECSOLTRI;
        eop