program vol; var f1,f2:text; n,i,j:integer; a:array[1..12,1..100] of int64; begin assign(f1,'matches.in'); reset; readln(f1,n); for i:=1 to n do begin for j:=1 to 12 do read(f1,a[i,j]); readln; end; assign(f2,'matches.out'); rewrite(f2); close(f2);