Fibonacci utilizando o laço para
algoritmo()
{
// exibe os numeros de fibonacci
inteiro a;
inteiro b;
inteiro c;
a := 1;
b := 1;
para (c:=0 ate 3000 passo 0)
c := a+b;
escreva (c);
a := b;
b := c;
}