integer::N,M,i,pos(3),tmp integer,allocatable::PQ(:,:) data pos/1,2,3/ read *, N, M allocate(PQ(2,M)) read *, PQ do i=1, M tmp = pos(PQ(1,i)) pos(PQ(1,i)) = pos(PQ(2,i)) pos(PQ(2,i)) = tmp end do do i=1, 3 if(pos(i).eq.N) then print '(i0)',i end if end do end program