Algoritmo detarea	
	Definir x,vector1,vector2 Como Entero
	Dimension vector1[500],vector2[500]
	para x = 1 Hasta 500 Con Paso 1 Hacer
		Escribir "Ingresa un numero"
		leer vector1(x)
	FinPara
	
	para x = 1 Hasta 500 Con Paso 1 Hacer
		vector2(x) = vector1[x] ^ 2
	FinPara
	
	para x = 1 Hasta 500 Con Paso 1 Hacer
		Escribir vector2(x)
	FinPara	
FinAlgoritmo