program sample
    implicit none
    integer(8) ::a, b,c,i,j,m,n,k,a1,b1,c1
    integer(8)::x(5)
    
    read(*,*) x
   
    do i=1,5
        
        if (x(i) ==0) then
           write(*,*)i
      
        end if

    end do
   
    stop
end program sample
  

