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

крута

придется ради такого случая даже обновить версию

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016begin  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Массив A68 64 30 75 36 15 50 39 92 26Массив B56 68 97 30 95 63Результат вставки68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26