algoritmo "Sequência de Fibonacci"
var
   C, PN, SN: Inteiro
inicio
      EscrevaL(" Sequência de Fibonacci (15 primeiros números) ")
      EscrevaL
      PN := 0 // Linha desnecessária, pois o valor 0 é atribuído por padrão às variáveis numéricas em Visualg.
              // Porém, por questões de entendimento é melhor atribuir o valor à variável nesse caso.
      Escreva(PN) // >>> 0
      SN := 1
      Para C := 1 Ate 7 Faca
           SN := SN + PN // SN recebe último valor atribuído a si + último valor atribuído a PN
           Escreva(SN) // >>> 1, 2, 5, 13, 34, 89, 233
           PN := PN + SN // PN recebe último valor atribuído a si + último valor atribuído a SN
           Escreva(PN) // >>> 1, 3, 8, 21, 55, 144, 377
      FimPara
      EscrevaL
fimalgoritmo