===== PascalABC.NET =====
begin
var Q := ArrRAndom(7, 6, 21);
Q.Println;
var (N, X) := ReadInteger2('Введите N и X:');
var A := ArrGen(N, i -> i + 1, X - 1);
A.Println
end.
===== PascalABC.NET =====
begin
var Q := ArrRAndom(7, 6, 21);
Q.Println;
var (N, X) := ReadInteger2('Введите N и X:');
var A := ArrGen(N, i -> i + 1, X - 1);
A.Println
end.