program read_write_to_file
      write(*,*)'How many numbers to save?'
      read(*,*) n
      write(*,*)'Type in',n,'numbers now:'
      open(unit=10,file='your_data') 
      do i=1,n
        read(*,*) a
        write(10,*) a
      enddo
      close(10)
      write(*,*)'Now your data saved in "your_data".'
      end