PROGRAM CONV(INPUT,OUTPUT,BINOUT);
VAR BINOUT:FILE OF INTEGER;
    NUMBER,COUNT:INTEGER;
BEGIN
  REWRITE(BINOUT);
  COUNT:=0;
  READ(NUMBER);
  WHILE NUMBER <> -1 DO
  BEGIN
    BINOUT^:=NUMBER;
    PUT(BINOUT);
    COUNT:=COUNT+1;
    READ(NUMBER);
  END;
  WRITELN(COUNT,' NUMBERS COPIED')
END.