Algoritmo detarea
	Definir n,a,b,fib Como real
	Dimension fib[100]
	a = 0
	b = 1
	para x = 1 Hasta 100 Con Paso 1 hacer
		si x mod 2 == 1 Entonces
			fib(x) = a
			a = a + b
		SiNo
			fib(x) = b
			b = b + a
		FinSi
	FinPara
	
	para x = 1 Hasta 100 Con Paso 1 Hacer
		Escribir fib(x)
	FinPara
FinAlgoritmo