program B; var fin,fout:text; mas:array[1..12] of int64; n,i,j,ii:integer; paral:boolean; procedure Sort; var byf:int64; ind,i,j:integer; begin for i:=1 to 11 do begin ind:=i; for j:=i+1 to 12 do if mas[j]mas[ii*4+1] then paral:=false; if paral then writeln(fout,'yes') else writeln(fout,'no'); end; end.