program tron_mang;
uses crt;
type mang=array[1..100] of integer;
var a,b,c:mang;
    n,i,j:integer;
Procedure nhap(var x:mang; n:byte);
var i:integer;
begin
    for i:=1 to n do
    begin
        write('M[',i,'] = ');readln(X[i]);
    end;
end;
Procedure in_mang(x:mang; n:byte);
var i:byte;
begin
    for i:=1 to n do write(x[i],' ');
end;
Begin
    clrscr;
    write('n = ');readln(n);
    writeln('Nhap day a:');nhap(A,n);
    writeln('Nhap day b:');nhap(B,n);
    i:=1; j:=1;
    while i<=n do
    begin
        C[j]:=A[i];
        C[j+1]:=B[i];
        j:=j+2;
        i:=i+1;
    end;
    write('Mang sau khi tron: ');in_mang(C,2*n);
    readln
End.