PROGRAM CBINARY(INPUT,OUTPUT);
TYPE DIM=ARRAY[ 1..100 ] OF INTEGER;
VAR A:DIM;
    B:DIM;
    C:DIM;
    O,N,M :INTEGER;

{$I B:BINARY.SRC}

BEGIN (* MAIN *)
  READ(N);
  READLN(M);
  FOR O:=1 TO 30  DO
    BEGIN
      A[O]:=MAXINT; B[O]:=MAXINT
    END;
  FOR O:=1 TO N DO
    READ(A[O]);
  FOR O:=1 TO M DO
    READ(B[O]);
  WRITELN;
  WRITELN('FILE A');
  FOR O:=1 TO N DO
    WRITE('     C(',O:2,')=',A[O]:3);
  WRITELN;
  WRITELN('FILE B');
  FOR O:=1 TO M DO
    WRITE('     C(',O:2,')=',B[O]:3);
  BINARY(A,N,B,M,C);
  WRITELN;
  WRITELN('FILE A+B');
  FOR O:=1 TO N+M DO
    WRITE('     C(',O:2,')=',C[O]:3)
END.