Ответ:

  1. Объявление массива из 15 элементов: var A: array[1..15] of integer;
  2. Запись значения 8 в пятый элемент: A[5] := 8;
  3. Вывод всех элементов массива из 10 элементов:
    for i := 1 to 10 do
      write(A[i], ' ');