program main
    implicit none

    integer ::a,b(9),i
  read (*,*) b
  do i=1,10
   if(b(i) /= i) then
    write (*,*) i
    exit
    end if
    end do
    
end program main