// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); Print('A:'); a.Println;
var b:=ArrRandom(n,-50,50); Print('B:'); b.Println;
var c:=a.Concat(b).ToArray; Print('C:'); c.Println;
end.
Пример
n= 10
A: -7 25 -44 -28 40 -19 46 -15 9 2
B: -13 37 -38 -16 -4 35 23 -19 7 -32
C: -7 25 -44 -28 40 -19 46 -15 9 2 -13 37 -38 -16 -4 35 23 -19 7 -32