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)
	Fin Para
	X=LongitudTelegrama
	Para i<-1 Hasta N Con Paso 1 Hacer
		Cont=0
		Para j<-1 Hasta X-1 Con Paso 1 Hacer
			VectorA(j)=Subcadena(Telegrama(i),j,j)
			Si VectorA(j)=" " Entonces
				Cont=Cont+1
			Fin Si
		Fin Para
		Mostrar Cont
	Fin Para
FinAlgoritmo