Algoritmo detarea
	Definir n,a,b,c Como Entero
	Escribir "Ingresa un numero"
	leer n
	si n > 0 Entonces
		a = n mod 10
		c = 0
		Mientras n <> 0 Hacer			
			b = n mod 10
			n = trunc(n/10)
			si a <> b Entonces
				c = c + 1
			FinSi
		FinMientras
		si c == 0 Entonces
			Escribir "El numero esta formado por el mismo dígito "
		SiNo
			Escribir "El numero no esta formado por el mismo dígito"
		FinSi
	SiNo
		Escribir "El numero no es positivo"
	FinSi
FinAlgoritmo