.Заполнить массив нулями, кроме первого и последнего элементов, которые должны быть равны единице.

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrFill(ReadInteger('n='),0);  a[0]:=1; a[a.Length-1]:=1; a.Println;end.Примерn= 101 0 0 0 0 0 0 0 0 1