Proceso fi
	x=0
	Escribir "Bienvenido al menu del número fibonachi, elige la opción:"
	Escribir "1. Introducir hasta qué número quieres encotrar"
	Escribir "2. Ver el número fibonachi hasta ese valor"
	Escribir "3. Mostrar la suma total del número"
	Escribir "4. Ver si la suma es un valor primo o no"
	Escribir "5. Salir del programa"
	Mientras x = 0 Hacer
		Segun elecion Hacer
			1:
				cantidad=introduce()
			2:
				fibonachi = pasar(cantidad)
				Escribir fibonachi
			3:
				final = sumar(fibonachi)
				Escribir "La suma de todos los números mostrados es " final
			4:
				solucion = primo(final)
				Escribir solucion
			5:
				x=1
			De Otro Modo:
				Escribir "Sentencia introducida incorrecta"
		Fin Segun
	Fin Mientras
FinProceso

SubProceso cantidad=introduce()
	Escribir "Dime cuantos números quieres"
	Leer cantidad
FinSubProceso

SubProceso fibona=pasar(max)
	Si max = 0 Entonces
		cantidad=introduce()
	SiNo
		c = 0
		n1 = 0
		n2 = 1
		Mientras c<=max Hacer
			fibona = Concatenar(fibona,ConvertirATexto(c))
			fibona = concatenar(fibona," ")
			c = n1 + n2
			n2 = n1
			n1 = c
		Fin Mientras
	Fin Si
FinSubProceso

SubProceso fina=sumar(num)
	Si num = null Entonces
		fibona=pasar(max)
	SiNo
		suma = 0
		Para i<-1 Hasta longitud(num) Con Paso 1 Hacer
			Repetir
				letra = subcadena(num,i,i)
				letra2 = Concatenar(letra2,letra)
				i = i + 1
			Hasta Que Subcadena(num,i,i) = " "
			n1 = ConvertirANumero(letra2)
			suma = suma + n1
			letra2 = null
		Fin Para
		fina = suma
	Fin Si
FinSubProceso

SubProceso sol=primo(num)
	nopri = 0
	cont = 0
	Para cont<-num-1 Hasta 2 Con Paso -1 Hacer
		Si num%2=0 Entonces
			nopri = 1
		Fin Si
	Fin Para
	Si nopri=0 Entonces
		var = "Es primo"
	SiNo
		var = "No es primo"
	Fin Si
	sol = var
FinSubProceso