Лабораторная работа № 11. Линейные массивы. Задачи на вставку/удаление элементов Вариант 10 Pascal

I. Дана программа, решающая определенную задачу.
Требуется: 1) исполнить программу при 2-3 наборах данных; 2) сформулировать условие задачи, которую решает данная программа.
Вариант 10.
10. 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(A[i]);
   End;
  i:=1;
  while i <= n do
    if (A[i] >= 100) and  (A[i] <= 999)
    then begin
      for j:=n downto i+1 do A[j+1]:=A[j];
      n:=n+1;
      a[i+1]:=-1;
      i:=i+2
         end
    else i:= i+1;
  For I := 1 To N Do write(a[i]:6);
end.

II. Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски. Проверить работоспособность программы на 2-3 наборах тестовых данных.
10 Дан линейный массив.  Изменить массив, вычеркнув из него все элементы, не кратные своему соседнему элементу справа.
Type LinMass = array [1..1000] of Integer;
Var A : LinMass; N, i, j : ________;
begin
   Write('Количество элементов массива: '); ReadLn(N);
   For I := 1 To ____ Do
   Begin
       Write('Введите A[', I, '] '); ReadLn(_____);
   End;
  i:=1;
  while i ___ n do
    if A[i] mod ______ <> 0
    then begin
            for j:=i+1 to ____ do A[j-1]:=A[j];
            n:=n-1
         end
    else i:= i+1;
  For I := 1 To N Do write(a[i]:6);
end.

III. Решить задачу на вставку в массив. Привести несколько тестовых наборов данных для проверки работоспособности программы.
10. Дан целочисленный линейный массив. Вставить в него заданное число после любого из минимальных элементов.

IV. Решить задачу на удаление элемента/элементов из массива. Привести несколько тестовых наборов данных для проверки работоспособности программы.
10. Дан целочисленный линейный массив. Удалить из него все повторяющиеся элементы, оставив их первое вхождение.