Изменить массив, вычеркнув из него все элементы, кратные сумме своих соседей справа и слева - PascalABC.NET

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

Заполнить пропуски. Дан линейный массив. Изменить массив, вычеркнув из него все элементы, кратные сумме своих соседей справа и слева.

Type LinMass = array [1..1000] of Integer;
Var A : LinMass; N, i, j : Integer; 
begin
   Write('Количество элементов массива: '); ReadLn(N);
   For I := 1 To N Do
   Begin
       Write('Введите A[', I, '] '); ReadLn(____);
   End;
  i:=2;
  while i < n do
    if A[i] mod ________ = 0
    then begin
        for j:=i+1 to n do A[j-1]:=A[j];
        n:=n-1
         end
    else i:= i+1;
  For I := 1 To ____ Do write(a[i]:6);
end.

Решение задачи: «Изменить массив, вычеркнув из него все элементы, кратные сумме своих соседей справа и слева»

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

Type LinMass = array [1..100] of Integer;
Var A : LinMass;
    N, i, j : Integer;
begin
Write('Количество элементов массива от 3 до 100 n=');
ReadLn(N);
For I := 1 To N Do
 Begin
  Write('Введите A[', I, '] ');
  ReadLn(A[i]);
 End;
i:=2;
while i < n do
if A[i] mod (A[i-1]+A[i+1]) = 0 then
 begin
  for j:=i to n-1 do
  A[j]:=A[j+1];
  n:=n-1;
 end
else i:= i+1;
For I := 1 To n Do write(a[i],' ');
end.

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

В этом коде:

Объявляется тип массива LinMass и переменная A этого типа.
Задаётся количество элементов массива от 3 до 100 и записывается в переменную N.
С помощью цикла For происходит ввод элементов массива с помощью функции ReadLn().
Переменная i инициализируется значением 2, а затем в цикле while проверяется, являются ли элементы массива, кратными сумме своих соседей справа и слева. Если это так, то с помощью цикла for элементы сдвигаются вправо, уменьшается значение переменной n на единицу и цикл while прерывается. Если это не так, то переменная i увеличивается на единицу.
С помощью цикла For и функции write() выводятся элементы массива через пробел.