else{
if(A[r-1].clave>A[2*(r-1)].clave && A[2*(r-1)].clave<=A[2*(r-1)+1].clave){
Intercambia(A[r-1],A[2*(r-1)]);
r=2*r;
}
else if(A[r-1].clave>A[2*(r-1)+1].clave &&
A[2*(r-1)+1].clave<A[2*(r-1)].clave){
Intercambia(A[r-1],A[2*(r-1)+1]);
r=2*r+1;
}
else
r=Ultimo;
}
}