program prob7
    implicit none
    integer :: x(5)
    integer :: i
    read(*,*) x

    do i = 1, 5
        if(x(i) /= i) then
            write(*,*) i
        end if
    end do


    stop
contains
end program prob7