Atividade
Dada a série de Fibonacci: 1,1,2,3,5,8,13,21,…, cujos dois primeiros termos são 1, e, a partir do terceiro termo, obtém-se o termo seguinte da série somando os 2 termos anteriores, faça um algoritmo que leia um número inteiro N e informe os N primeiros termos da série de Fibonacci.
Resposta
program fibonacciN;
var fib1, fib2, fib3, N, i: integer;
begin
write('Digite o valor de N: '); readln(N);
write('S�rie de Fibonacci: ');
if N < 1 then writeln('Quantidade de termos menor igual a zero!')
else
if N = 1 then write('1')
else
begin
write('1, 1');
fib1:=1;fib2:=2;
for i:=3 to N do
begin
fib3:= fib1+fib2;
write(', ',fib3);
fib1:=fib2;
fib2:=fib3;
end;
end;
end.
Laboratório de Robótica Inclusiva 
Um comentário em “Fibonacci de N”