Algoritmo detarea
	Definir x,a,b,vector Como Entero
	b = 0
	dimension vector[100]
	para x = 1 hasta 100 Con Paso 1 Hacer
		leer vector(x)
	FinPara
	
	para x = 1 Hasta 100 Con Paso 1 Hacer
		si x == 1 Entonces
			a = vector(x)
		SiNo
			si a > vector(x)  Entonces
				b = 1
			SiNo
				a = vector(x)
			FinSi
		FinSi
	FinPara

	si b == 1 Entonces
		Escribir "No"
	SiNo
		Escribir "Si"
	FinSi
FinAlgoritmo