Program Main
implicit none
integer::i=1,n,f=0,f1=1,f2=1
Print*,"Enter number of terms"
read*,n
do while(i<=n)
Print*," ",f
f1=f2
f2=f
f=f1+f2
i=i+1
ENDDO
end program Main