Записать программу формирования и выведения масива а розмером n, который содержит n первых элементов последовательности чисел фибоначчи

const
  n = 10;

var
  a: array [1..n] of integer;

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