Algoritmo detarea
	Definir a,n,digito_mayor Como Entero
	Definir x Como caracter
	Escribir "Ingresa un numero de 4 digitos"
	leer n
	x = ConvertirATexto(n)
	si Longitud(x) == 4 Entonces
		digito_mayor = 0
		para a = 0 Hasta 3 Con Paso 1 Hacer
			si convertirAnumero(Subcadena(x,a,a)) > digito_mayor Entonces
				digito_mayor = ConvertirANumero(Subcadena(x,a,a))
			FinSi		
		FinPara
		si digito_mayor mod 2 == 0 Entonces
			Escribir "El digito mayor es ",digito_mayor," el numero es par"
		SiNo
			Escribir "El digito mayor es ",digito_mayor," el numero es impar"
		FinSi
	SiNo
		Escribir "El numero no es de 4 digitos"
	FinSi
FinAlgoritmo