program a do read'(5i1)',i,j,k,l,m print*,merge(j,m,j==k) enddo end