PROGRAM PASC14(INPUT,OUTPUT,BIN1);
TYPE RFILE=FILE OF INTEGER;
VAR NUMBER:INTEGER;
    BIN1:RFILE;
PROCEDURE PUTINT(VAR F:RFILE);
VAR I:INTEGER;
BEGIN
I:=F^+6;
WRITELN(I);
END;
BEGIN
REWRITE(BIN1);
READ(NUMBER);
WHILE NUMBER <>0 DO
  BEGIN
  BIN1^:=NUMBER;
  PUT(BIN1);
  PUTINT(BIN1);
  READ(NUMBER);
  END;
WRITELN('FINISHED');
END.