// PascalABC.NET 3.3, сборка 1541 от 29.09.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a:=ReadArrInteger('Введите 25 не повторяющихся чисел:'+NewLine,25); var b:=ReadArrInteger('Введите '+n+' не повторяющихся чисел:'+NewLine,n); Writeln('Объединенная последовательность:'); (a+b).Println end.