Función Busbin( S[1..n], x)
Si x <= n entonces {Comprobamos si x es menos que el máx. de la secuencia ordenada}
	k = n/2 {Tomamos un pivote intermedio}
	Si x<= S[k] entonces {Si x menor o igual al pivote}
            	Busbin(S[1..k], x)		
	sino {Si x es mayor al pivote}	
		Busbin(S[k+1..n], x)
	Sino{Si ya no se puede subdividir más}
		Devolver S[k] {Devolvemos la posición final}
sino
	“No esta el elemento”