implicit none
integer,parameter:: n=16
integer a(n,4),i,j
integer k,l,m,s,n1
open(10,file="1.txt")
open(11,file="2.txt")
read(10,*)((a(i,j),j=1,4),i=1,n)
do i=1,n-1
    s=0
    do j=i+1,n
        n1=0
        do k=1,4
            do l=1,4
                if(a(i,k)==a(j,l)) n1=n1+1
            enddo
        enddo
        if(n1==3) s=s+1
    enddo
    if(s>=1 .and. s<=3) write(11,*)i,(a(i,m),m=1,4) 
enddo
close(10)
close(11)
end