program main implicit none integer n,m integer i,dummy integer,allocatable,dimension(:)::a,b read(*,*)n,m allocate(a(m),b(n)) read(*,*)a do i=1,n b(i)=i enddo do i=1,m dummy=b(a(i)) b(2:a(i))=b(1:a(i)-1) b(1)=dummy write(*,*)b enddo write(*,*)dummy end program main