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

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

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

      end;
  readln;

end.