Program n63;
var n, n1, k: integer;
var arr1, arr2: array of integer;
Begin
writeln('Введите размер 1 и 2 массива.');
readln(n, n1);
writeln ('Введите число k, но не более', n -1);
readln(k);
SetLength(arr1, n+n1);
SetLength(arr2, n1);
if (k > 0) then k -= 1;
for var i:= 0 to n+n1-1 do
 begin
  arr1[i]:= random(11) + i;
  if (i >= k) and (i < k+n1) then
   arr1[i]:= 0;
 end;
writeln('arr1 = ', arr1);
for var i:= 0 to n1-1 do
 arr2[i]:= random(11) + i;
writeln('arr2 = ', arr2);
var i:= 0;
for var j:= k to k+n1-1 do
 begin
  arr1[j] := arr2[i];
  i += 1;
 end;
writeln('result = ',arr1);
End.