// PascalABC.NET
begin
var (n, x) := ReadInteger2('Введите N и X:');
var a := ArrGen(n, x, p -> p + 1);
for var i := 0 to a.High do
$'A[{i+1}]={a[i]}'.Println
end.
