program z2; var n:integer; a,b,a1,b1,a2,b2,a3,b3,a4,b4,a5,b5,a6,b6:byte; f,f1:text; i:integer; begin assign(f,'task.in'); assign(f1,'task.out'); rewrite(f); read(f,n,a,b, a1,b1, a2,b2, a3,b3, a4,b4, a5,b5, a6,b6); i:=0; reset(f1); if (a