===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ReadArrInteger('Введи элементы массива:', n);
a := a?[:5] + Arr(100) + a?[5:];
a.Print
end.
