uses crt;
var
f:text;
i,j:integer;
begin
assign(f,'matches.dat');
reset(f);
readln(f,n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);