Sucecion de Fibonacci en Pascal

En matemáticas, la sucesión de Fibonacci es la siguiente sucesión infinita de números naturales:

0,1,1,2,3,5,8,13,21,34,55…,

El primer elemento es 0, el segundo es 1 y cada elemento restante es la suma de los dos anteriores. A cada elemento de esta sucesión se le llama número de Fibonacci. Esta sucesión fue descrita en Europa por Leonardo de Pisa, matemático italiano del siglo XIII también conocido como Fibonacci. Tiene numerosas aplicaciones en ciencias de la computación, matemáticas y teoría de juegos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

program fibonacci2;
uses crt;
var
 a,b,c:longint;
n:integer;
contador:integer;
begin
clrscr;
 contador:=3;
 writeln('Serie de Fibonacci');
 write('N termino: ');
 readln(n);
 a:=0;
 b:=1;
 c:=(a+b);
if n=1 then begin writeln(a); end;
if n=2 then begin writeln(a); writeln(b); end;
if n=3 then begin writeln(a); writeln(b); writeln(c); end;
if n>3 then begin
 writeln(a);
 writeln(b);
 writeln(c);
 while contador<=n do
  begin
  a:=b;
  b:=c;
  c:=(a+b);
  writeln(c);
  contador:=contador+1;
  end;
end;
end.

Saludos…