delete abr k1< k < k2

Del_Int(T,k1,k2)
        IF T ≠ NIL THEN
                IF T->Key > k1 THEN T->SX = Del_Int(T->SX,k1,k2)
                IF T->Key < k2 THEN T->DX = Del_Int(T->DX,k1,k2)
                IF T->Key >= k1 && T->Key <= k2 THEN
                        IF T->SX = NIL THEN
                                nodo = T
                                T = T->DX
                        ELSE IF T->DX = NIL THEN
                                nodo = T
                                T = T->SX
                        ELSE
                                nodo = Stacca_Minimo(T->DX,T)
                                *copia nodo in T*
                Dealloca(nodo)
        return T