输出Fibonacci数列前40项

program Project2;
{$APPTYPE CONSOLE}
var
a,b,c,i:integer;
begin
i:=0;
a:=1;
b:=1;
writeln(1);
writeln(1);
repeat
c:=a+b;
a:=b;
b:=c;
writeln(c);
inc(i);
until i>=38;
readln;
end.

PROGRAM bubble_sort;
{$apptype console}
CONST N = 10;
  var i:integer;
Function fibon(n:integer):integer;
begin
  if n=0 then fibon:=0;
  if n=1 then fibon:=1;
  if n>1 then fibon:=fibon(n-1)+fibon(n-2);
end;
BEGIN
for i:=0 to 40 do
writeln(fibon(i));
readln;
END.