Program Ejercicio7
Tipo Tarreglo= arreglo[1..N]pertenece caracter
Lexico
      Const N=5
      Var a:Tarreglo
          car:caracter
Accion Cargar(resultado arr:Tarreglo)
lexico
      i:integer
inicio
      i <--- 0
      Escribir('ingrese los caracteres, para finalizar ingrese * (solo puede ingresar ',N,' caracteres)')
      repetir
            i <--- i+1
            readln(arr[i])
      hasta que ((i=N) or (arr[i]='*'))
fin accion
Accion IgualesDesiguales(dato arr:Tarreglo;a:char);{usa R2}
lexico
      i,igual,desigual: entero;
inicio
     i <--- 1 {inicializacion de la adquisicion}
     Segun   {tratamiento de secuencia vacia}
     	  arr[i]='*':Escribir('secuencia vacia')
          arr[i]<>'*': {tratamiento de no fin de secuencia}
                      igual <--- 0  {inicializacion del tratamiento}
                      desigual <--- 0;

                      mientras ((i<=N)and(arr[i]<>'*')) hacer
                           si arr[i]=a entonces  {tratamiento del elemento corriente}
                              igual <--- igual+1
                              sino
			          desigual <--- desigual+1
                           finsi
                              i <--- i+1 {obtener siguiente elemento}
                      FinMientras
                      Escribir('Hay ',igual,' caracter/es igual/es que ',a,' y ',desigual,' desigual/es ')
     FinSegun
FinAccion
inicio
     cargar(a)
     Escribir('ingrese el caracter a analizar')
     Leer(car)
     IgualesDesiguales(a,car)
Fin