Dimension x[3]
Para i<-1 Hasta 3 Con Paso 1 Hacer
Escribir "Digite una letra"
Leer A
Si i>1 Entonces
R=0
Para j<-1 Hasta (i-1) Con Paso 1 Hacer
Si X[j]=A Entonces
R=R+1
Fin Si
Fin Para
Si R=0 Entonces
X[i]=A
Sino
Escribir "Letra Repetida"
Fin Si
Sino
X[i]=A
Fin Si
Fin Para
Para i<-1 Hasta 3 Con Paso 1 Hacer
Escribir X[i]
Fin Para
Para i<-1 Hasta 3 Con Paso 1 Hacer
Para j<-1 Hasta 3 Con Paso 1 Hacer
Si X[j]>X[j+1] Entonces <------------Error Pero en DFD corre perfectamente
aux=X[j]
X[j]=X(j+1)
X[j+1]=aux
Fin Si
Fin Para
Fin Para
Para i<-1 Hasta 3 Con Paso 1 Hacer
Escribir X[i];
Fin Para