var a : array [1..100,1..100] of longint; d : array [1..100] of longint; i,j,max,nom,n : longint; begin for i:=1 to 3 do for j:=1 to 3 do read(a[i,j]); while (j>3) and (a[i,j]<>15) do j:=j+1; if j<=3 then writeln('No') else writeln('Yes, ',i); end.