Algoritmo da Sequência Fibonacci em Portugol (VisuAlg)

 algoritmo "Fibonacci"

var

  Atual, Cont, Quant, n_1, n_2 : Inteiro

inicio

n_1 <- 0 

n_2 <- 1

Atual <- 2

Escreva ("Quantos números terá a sequência? ")

Leia (Quant)

Escreva ("n_1")

Escreva ("n_2 ")

    Para Cont <- 1 ate (Quant - 2) faca

     Atual <- n_1 + n_2

     Escreva (Atual, " ")

     n_1 <- n_2

     n_2 <- Atual

FimPara

fimalgoritmo