Definir num Como Entero
	Definir num_romano Como Caracter
	num_romano = ""

	Escribir "Ingrese el numero"
	Leer num

	Mientras num >= 500 Hacer
		Escribir "Ingrese un numero menor a 500"
		Leer num
	FinMientras

	unidad = num MOD 10
	escribir unidad
	num = num - unidad
	escribir num
	num = num / 10
	escribir num

	Escribir "****"
	decena = num MOD 10
	escribir decena
	num = num - decena
	escribir num
	num = num / 10
	escribir num

	Escribir "****"
	centena = num MOD 10
	escribir centena
	num = num - centena
	escribir num
	num = num / 10
	escribir num

	//casos de unidades
	Segun unidad Hacer
		1: num_romano = "I"
		2: num_romano = "II"
		3: num_romano = "III"
		4: num_romano = "IV"
		5: num_romano = "V"
		6: num_romano = "VI"
		7: num_romano = "VII"
		8: num_romano = "VIII"
		9: num_romano = "IX"
	FinSegun

	//casos de decenas
	Segun decena Hacer
		1: num_romano = "X" + num_romano
		2: num_romano = "XX" + num_romano
		3: num_romano = "XXX" + num_romano
		4: num_romano =  "XL"  + num_romano
		5: num_romano =  "L" + num_romano
		6: num_romano = "LX"  + num_romano
		7: num_romano = "LXX"  + num_romano
		8: num_romano = "LXXX" + num_romano
		9: num_romano = "XC" + num_romano
	FinSegun

	//casos de centenas
	Segun centena Hacer
		1: num_romano = "C" + num_romano
		2: num_romano = "CC" + num_romano
		3: num_romano = "CCC" + num_romano
		4: num_romano = "CD" + num_romano
		5: num_romano = "D" + num_romano
		6: num_romano = "DC" + num_romano
		7: num_romano = "DCC" + num_romano
		8: num_romano = "DCCC" + num_romano
		9: num_romano = "CM" + num_romano
	FinSegun

	Escribir "El numero romano es: ", num_romano