Proceso Numero_Verificador.
	i <- 0
	h <- 2
	k <- 0
	suma <- 0
	escribir "Leer Rut"
	leer rut1
	rut <- rut1
	// aca se saca cuantos numeros tiene
	Repetir
		rut <- trunc(rut/10)
		i <- i + 1
	hasta que rut = 0
	Repetir
		Repetir
			x <- trunc(rut1/10)
			mod <- rut1 - (x*10)
			suma <- suma + (mod*h)
			rut1 <- x
			si mod <> 0 Entonces
				k <- k +1
			FinSi
			h <- h + 1
		hasta que h > 7
		h <- 2
		k <- k + 1
	hasta que k >= 8
	entera <- trunc(suma/11)
	mod1 <- suma -(entera * 11)
	verificador <- 11 - mod1
	si verificador > 9 entonces 
		escribir "Su digito Verificador Es k"
	sino
		escribir "Su digito Verificador Es ", verificador
	FinSi
FinProceso