e8_4输出菲波拉契数列的前10项

program fbnq;{输出菲波拉契数列的前10项}
var
  a:array[1..10] of integer;
  i:integer;


begin
  a[1]:=1;
  a[2]:=1;
  for i:=3 to 10 do
      a[i]:=a[i-1]+a[i-2];
  for i:=1 to 10 do
      begin
           write(a[i],' ');

      end;
  readln;

end.