Введите с клавиатуры значения элементов массива и увеличте на 5 значения всех элемнтов массива кроме первого и последнего.

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
  for var i:=1 to a.Length-2 do a[i]+=5; a.Println
end.

Пример
n= 8
Вводите: -7 13 24 -11 0 -6 31 -7
-7 18 29 -6 5 -1 36 -7