Заполните массив целыми числами по правилу - Pascal ABC

Формулировка задачи:

1. Заполните массив целыми числами, так чтобы средний элемент массива был равен X, слева от него элементы стоят по возрастанию, а справа – по убыванию (ввести X с клавиатуры). Соседние элементы отличаются на единицу. Например: 1 2 3 2 1.

Решение задачи: «Заполните массив целыми числами по правилу»

Листинг программы

i:=k-1;
while i>=1 do
 begin
  a[i]:=a[i+1]-1;
  a[n-i+1]:=a[i];
  dec(i);
 end;

Объяснение кода листинга программы

Переменная i устанавливается равной k-1.
Затем, пока i больше или равно 1, выполняется цикл while.
Внутри цикла, значение i уменьшается на 1 (dec(i)).
Значение a[i] присваивается значению a[i+1] минус 1.
Значение a[n-i+1] присваивается значению a[i].
После этого, значение i уменьшается на 1 (dec(i)).
Цикл повторяется, пока i больше или равно 1.
Код не использует вложенные списки.