code 34172;
    comment MCA 2402;
    procedure BAKREAHES2(A, N, N1, N2, INT, VEC); value N, N1, N2;
    integer N, N1, N2; array A, VEC; integer array INT;
    begin integer I, L, K; array U[1:N];

        for I:= N step -1 until 2 do 
        begin for K:= I - 2 step -1 until 1 do 
            U[K + 1]:= A[I,K];
            for K:= N1 step 1 until N2 do 
            VEC[I,K]:= VEC[I,K] + TAMVEC(2 , I - 1, K, VEC, U);
            L:= INT[I]; if L > I then ICHROW(N1, N2, I, L, VEC)
        end 
    end BAKREAHES2;
        eop