Untitled

var
  A: array of Integer;
  i, N, X: Integer;
begin
  // Ввод значений N и X с клавиатуры
  Write('Введите количество элементов N: ');
  Readln(N);
  Write('Введите начальное значение X: ');
  Readln(X);

  // Установка длины массива
  SetLength(A, N);

  // Заполнение массива A первыми N натуральными числами, начиная с X
  for i := 0 to N - 1 do
  begin
    A[i] := X + i;
  end;
end.

вторая часть
var
  A: array of Integer;
  i, N: Integer;
begin
  // Ввод значения N с клавиатуры
  Write('Введите количество элементов N: ');
  Readln(N);

  // Установка длины массива
  SetLength(A, N);

  // Заполнение массива A первыми N числами Фибоначчи
  A[0] := 1;
  A[1] := 1;

  for i := 2 to N - 1 do
  begin
    A[i] := A[i - 1] + A[i - 2];
  end;
end.