programa
{
funcao inicio()
{
//exercicio 58 - {Fibonacci}
inteiro vet[15],p
vet[0]=0
vet[1]=1
para(p=3;p<15;p++){
vet[2]=vet[0]+vet[1]
vet[3]=vet[1]+vet[2]
vet[4]=vet[2]+vet[3]
vet[5]=vet[3]+vet[4]
vet[6]=vet[4]+vet[5]
vet[7]=vet[5]+vet[6]
vet[8]=vet[6]+vet[7]
vet[9]=vet[7]+vet[8]
vet[10]=vet[8]+vet[9]
vet[11]=vet[9]+vet[10]
vet[12]=vet[10]+vet[11]
vet[13]=vet[11]+vet[12]
vet[14]=vet[12]+vet[13]
}
para(p=0;p<15;p++){
escreva(vet[p],"-")
}
escreva("fim")
}
}
//Gostaria de saber se há uma solução melhor do que esta?