program main implicit none integer*4::B(1:9),i read *,B do i=1,10 if(B(i).ne.i) then print '(i0)',i return end if end do end program main