// 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).Printlnend.
Пример:n= 8Введите 25 не повторяющихся чисел: -35 41 42 20 -27 1 35 -11 -24 -33 -45 16 50 -8 26 15 6 -38 32 44 -22 -25 -3 -28 48Введите 8 не повторяющихся чисел: -14 0 37 5 11 -29 36 -19Объединенная последовательность:-35 41 42 20 -27 1 35 -11 -24 -33 -45 16 50 -8 26 15 6 -38 32 44 -22 -25 -3 -28 48 -14 0 37 5 11 -29 36 -19