implicit none
integer(8) A,i,m
integer(8),allocatable :: x(:)
allocate (x(9))
read(*,*) (x(m),m=1,9)
do i=1,10
   if (x(i)/=i) then
       write(*,*) i
       exit
   end if
end do
end