uses crt;
var a: array[1..100] of integer;
     b: array[1..100] of integer;
     c: array[1..200] of integer;
     i, n: integer;
begin
write('введите размерность массива');
readln(n);
writeln('Заполните элементы массива а значениями');
for i:=1 to n do
readln (a[i]);
writeln('Заполните элементы массива b значениями');
for i:=1 to n do
readln (b[i]);

for i:=1 to n*2 do 
if i mod 2=1 then c[i]:=a[i div 2+1] else c[i]:=b[i div 2]

for i:=1 to n*2 do
wtite (c[i],' ');

readln
end.