Заданы два одномерных массива действительных чисел различных размеров. объединить их в один массив, включив второй массив между k-м и (k+1)-м элементами первого

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin   var m: =readinteger('количество элементов в массиве а (m): ');   var n: =readinteger('количество элементов в массиве b (n): ');   var k: =readinteger('позиция вставки k (1< k< m): ');   if (k> 1) and (k< m) then begin       var a: =arrrandom(m,1,99); writeln('массив a'); a.println;       var b: =arrrandom(n,1,99); writeln('массив b'); b.println;       writeln('результат вставки'); (a[: k]+b+a[k: ]).println       end   else writeln('вы нарушили условие 1< k< m') end. тестовое решение количество элементов в массиве а (m): 10 количество элементов в массиве b (n): 6 позиция вставки k (1< k< m): 4 массив a 68 64 30 75 36 15 50 39 92 26 массив b 56 68 97 30 95 63 результат вставки 68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26

специальное приложение