Read/Write

      Program IO
      write(*,*) 'Please input a data item: '
      read(*,*) X1
      Y1 = X1 / 10
      write(*,10)
      read(*,*) X2
      Y2 = X2 / 10
      write(*,*) X1,Y1,X2,Y2
   10 format('Please input another data item: ',$)
      end