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

begin
  var a:=ArrFill(ReadInteger('n='),0);
  a[0]:=1; a[a.Length-1]:=1; a.Println;
end.


n= 10
1 0 0 0 0 0 0 0 0 1