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