PROGRAM CONV(IN1,IN2,OUTPUT,BIN1,BIN2);
VAR BIN1,BIN2:FILE OF INTEGER;
    IN1,IN2:TEXT;
    NUMB1,NUMB2,CNT1,CNT2:INTEGER;
BEGIN
  REWRITE(BIN1);
  REWRITE(BIN2);
  RESET(IN1);
  RESET(IN2);
  CNT1:=0;
  CNT2:=0;
  READ(IN1,NUMB1);
  WHILE NUMB1 <> -1 DO
  BEGIN
    READ(IN2,NUMB2);
    BIN1^:=NUMB1;
    BIN2^:=NUMB2;
    PUT(BIN1);
    CNT1:=CNT1+1;
    PUT(BIN2);
    CNT2:=CNT2+1;
    READ(IN1,NUMB1);
  END;
  WRITELN(CNT1,' NUMBERS COPIED');
  WRITELN(CNT2,' NUMBERA COPIED');
END.