PROGRAM CMERGE(INPUT,OUTPUT);
VAR A:ARRAY[ 1..100 ] OF INTEGER;
    B:ARRAY[ 1..100 ] OF INTEGER;
    C:ARRAY[ 1..200 ] OF INTEGER;
    I,J,K,M,N,L,O:INTEGER;

{$I B:MERGE.SRC}

BEGIN
  READLN(N);
  READLN(M);
  FOR O:=1 TO N DO
    READ(A[O]);
  FOR O:=1 TO M DO
    READ(B[O]);
  L:=N+M;
  MERGE(M,N,L);
  WRITELN;
  WRITE('DATA:    N=',N:3,'     M=',M:3);
WRITELN;
  FOR O:=1 TO N DO
  WRITE ('        A(',O:2,')=',A[O]:3);
WRITELN;
  FOR O:=1 TO M DO
  WRITE ('        B(',O:2,')=',B[O]:3);
WRITELN;
  FOR O:=1 TO L DO
    WRITE (C[O]:8)
END.