program p1;
var
  a : array[1..9999] of integer;
  x,y,i,n : integer;
begin
Write('Введите длину массива - '); readln(n); //Ввод длинны массива
y:=0;
for i:=1 to n do 
  a[i] := 3-i*2+i; //Заполняем массив
  
for i:=1 to n do
  Write(a[i],' ');      //Вывод в строку
 
writeln(); //Пропуск после строчного массива

for i:=1 to n do 
  Writeln(a[i]);     //Вывод в столбик
  
for i:=1 to n do begin
  if ((a[i] mod 7 <> 0) and (a[i] <> 0)) then  //Проверяю деление на 7. И что число не нуль.
    inc(y);
end;

for i:=1 to n do begin
  if a[i] < 0 then 
    inc(x);
end;

Writeln('Чисел делится на 7 - ', y);
Writeln('Чисел отрицательных ч. - ', x);

//-----------------------------------------------------------------------
for i:=3 to n-1 do 
  a[i] := a[i+1];  //Сдвигаем все после 3 элемента. Элементов в массиве стало 9. Последний элемент = 0.
  a[n] := 0;
 
//----------------------------------------------------------------------- 
  a[5] := 99; //5 элемент равен 99.
  
for i:=1 to n do
  Write(a[i],' ');      //Вывод в строку
end.