Algoritmo sin_titulo
    //Variables
    Definir Cont Como Entero
    Dimension Telegrama(30)
    Dimension VectorA(10)
    Definir Frase Como Caracter
    Definir X Como Entero
    Definir N Como Entero
    //Entradas
    Escribir "Por favor ingrese la cantidad de N° de lineas"
    Leer N
    Para i<-1 Hasta N Con Paso 1 Hacer
        Escribir "Por favor ingrese la frase"
        Leer Telegrama(i)
		X=Longitud(Telegrama(i))
	Fin Para
	Escribir X
    Para i<-1 Hasta N Con Paso 1 Hacer
        Cont=0
        Para j<-0 Hasta X-1 Con Paso 1 Hacer
            VectorA(j)=Subcadena(Telegrama(i),j,j)
			Escribir Subcadena(Telegrama(i),j,j)
            Si VectorA(j)=" " Entonces
                Cont=Cont+1
            Fin Si
        Fin Para
        Mostrar Cont
    Fin Para
FinAlgoritmo