Función Insertion Sort(lista):
for i = 1 hasta última posición de lista
j = i
while j > 0 y lista[j-1] > lista[j]
intercambia (lista[j], lista[j-1])
j = j - 1