      PROGRAM piyo
      IMPLICIT NONE
      INTEGER,PARAMETER :: prec = 16
      integer(prec) :: x(5),i
      
      read*,x
      
      do i = 1,5
        if( x(i)/=i)then
          print'(i0)',i
        end if
      end do
      
      
      
      
      stop
      !debugg
      
      
      
      END PROGRAM