Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов выполнить: из заданного одномерного массива произвольного размера переписать последовательно в другой массив элементы начального массива, стоящие на четных местах.

решить с помощью процедур

//PascalABC.NET 3.2 сборка 1318Var  ar1,ar2:array of integer;  n1,n2,i:integer;  procedure GenNotOdd(var ar1,ar2:array of integer;n:integer);Var  i,j:integer;begini:=1;j:=0;setlength(ar1,n div 2);while i<=n-1 do  begin    ar1[j]:=ar2[i];    inc(j);    i+=2;  end;end;procedure SwapArr(var ar1,ar2:array of integer;var n1,n2:integer);Var  buf:array of integer;  i,j,otbuf:integer;beginsetlength(buf,n2);for i:=0 to n2-1 do  buf[i]:=ar2[i];GenNotOdd(ar2,ar1,n1);GenNotOdd(ar1,buf,n2);otbuf:=n2;n2:=n1 div 2;n1:=otbuf div 2;end;procedure ReadArr(var ar:array of integer;var n:integer);Var  i:integer;beginreadln(n);setlength(ar,n);for i:=0 to n-1 do  readln(ar[i]);end;procedure WriteArr(ar:array of integer;n:integer);Var  i:integer;beginfor i:=0 to n-1 do  write(ar[i]:4);writeln;end;  beginReadArr(ar1,n1);ReadArr(ar2,n2);SwapArr(ar1,ar2,n1,n2);WriteArr(ar1,n1);WriteArr(ar2,n2);end.Пример ввода:21 271 2 3 4 5 6 7Пример вывода:2 4 62