Sequencia Fibonacci - Algoritmo Simples no Visualg

A sequencia fibonacci (0 1 1 2 3 5 8 13 21 34 55 89 144 233 ...) é uma sequencia onde pode se observar que o novo numero é resultado da soma dos dois anteriores. A implementação desse algoritmo é muito cobrada no inicio da disciplina de algoritmos  e como quase sempre o software e a linguagem usada nesse contexto é o visualg. Esta é uma das varias maneiras de codificar a sequencia Fibonacci na linguagem de pseudocódigo do visualg, porém acredito que esta é bem simples, pois há algumas que usam recursividade ou um método para calcular. Enfim:

algoritmo "Fibonacci1"
// Função :Calcular os 10 primeiros termos da sequencia Fibonacci
// Autor : Eliel
// Data : 18/08/2016
// Seção de Declarações
var
anterior, atual, proximo, i :inteiro

inicio
// Seção de Comandos
anterior <- 0
atual <- 0
proximo <- 1

escreval("Sequencia de Fibonacci com 10 primeiros numeros:")
escreva(atual)      //exibindo o primeiro termo ( o zero)
para i de 1 ate 9 faca        //exibindo os noves termos restantes
     escreva(proximo)
     anterior := atual
     atual := proximo
     proximo := atual + anterior

fimpara
fimalgoritmo