Algoritmo ContarCaracteres_SinModularizacion
    Definir Cad Como Caracter
    Definir i, limS, cant Como Entero
    Definir car Como Caracter
    Dimension Cad[10]
	
    // Ingreso de datos
    Escribir "¿Cuántos caracteres desea ingresar? (máx. 10)"
    Leer limS
	//control
	Mientras limS > 10 o limS < 1 hacer
		Escribir "error: ¿Cuántos caracteres desea ingresar? (máx. 10)"
		Leer limS
	FinMientras
	//ingreso de datos
	Para i <- 1 Hasta limS Con Paso 1 Hacer
        Escribir "Ingrese el carácter ", i, ":"
        Leer Cad[i]
    FinPara
	
    // Lectura del carácter a buscar
    Escribir "Ingrese el carácter que desea buscar:"
    Leer car
	
    // Cálculo de repeticiones
    cant <- 0
    Para i <- 1 Hasta limS Con Paso 1 Hacer
        Si Cad[i] = car Entonces
            cant <- cant + 1
        FinSi
    FinPara
	
    // Mostrar resultados
    Escribir "El carácter se repite ", cant, " veces."
	//mostrar cadena
    Escribir "La cadena ingresada es: "
    Para i <- 1 Hasta limS Con Paso 1 Hacer
        Escribir Cad[i]
    FinPara
FinAlgoritmo