//Introducir tantas frases como queramos y contarlas
Algoritmo detarea
	Definir x,c Como Entero
	Definir frase Como Caracter
	x = 1
	c = 0
	Mientras x == 1 Hacer
		Escribir "Ingresa una frase"
		leer frase
		c = c + 1
		Escribir "Deseas ingresas otra frases"
		Escribir "1 = si"
		Escribir "Otro numero para salir"
		leer x
	FinMientras
	Escribir "El numero de frases ingresadas son: ",c
FinAlgoritmo