      read(5, 100) n
	  write(6,100) n
100   format(i5)
      stop
      end