Algoritmo detarea
	Definir n,x Como Entero
	Definir octal Como Caracter
	Escribir "Ingresa un numero"
	leer n
	x = 1
	octal = ""
	Mientras x > 0 Hacer
		x = trunc(n/8)
		octal = ConvertirATexto(n mod 8) + octal
		n = x
	FinMientras
	Escribir "La conversion a octal es: ",octal
FinAlgoritmo