Algoritmo detarea
	Definir x,n Como Entero
	Definir vector Como Caracter	
	Escribir "Cuantos nombres desea ingresar"
	leer n
	Dimension vector[n]
	para x = 1 hasta n Con Paso 1 Hacer
		Escribir "Ingresa el nombres ",x
		leer vector(x)
	FinPara
	para x = 1 Hasta n Con Paso 1 Hacer
		Escribir "Nombre ",x," ",vector(x)
	FinPara
FinAlgoritmo