Proceso sin_titulo
	escribir "ingresar numero"
	leer a
	l<-1
	h<-0
	fib<-1
	mientras l<=a Hacer
		escribir fib 
		k<-fib
		fib<-fib+h
		h<-k
		l<-l+1
		finmientras
FinProceso