program main
   implicit none 
   integer :: i,n,a,b,s 
   print*, "enter the numbers of term"
   read*, n 
   a = 0 
   b = 1
   print*, a
   do i = 1, n-1 
   s = a+b 
   print*, s
   b=a 
   a=s 
   end do 
end program main