program main
IMPLICIT none
    INTEGER :: a=0,b=1,c=0,n,i
    PRINT *,"ENTER a NUMBER"
    read *,n
    do i=1,n-2
    c=a+b
    a=b
    b=c
    ENDDO
    do while(a>=0)
    PRINT *,b
    c=b-a
    b=a
    a=c
    ENDDO
end program main