Atividade
A Série de Fibonacci é: 1, 1, 2, 3, 5, 8, 13, … Note que os dois primeiros termos desta série são iguais a 1 e, a partir do terceiro, o termo é dado pela soma dos dois termos anteriores. Dado um número n, faça um algoritmo que exiba todos os termos da série de Fibonacci que sejam menores ou iguais a n.
Resposta
program fibonacci;
var fib1,fib2,fib3,n: integer;
begin
write('Digite um número inteiro: ');
readln(n);
fib1:=1;
fib2:=1;
if n>=1 then write('1, 1, ');
if n>=2 then
begin
repeat
fib3:=fib1+fib2;
if fib3<=n then write(fib3,', ');
fib1:=fib2;
fib2:=fib3;
until fib3>n;
end;
end.
Laboratório de Robótica Inclusiva 
Um comentário em “Fibonacci”