program numeros_de_Fibonacci_menores_que_mil



    real pen, ult, prox, cont



    write (*,*) "Programa que informa os numeros da serie de Fibonacci menores que mil"



    pen = 0

    ult = 1



    do cont = 1, 1000

      do while (prox < 1000 )

        prox = pen + ult


        pen = ult

        ult = prox

      end do

    end do



    stop



end program numeros_de_Fibonacci_menores_que_mil