Var
        N, X, temp, pocitadlo, i, j, k, l, m, y, z: Integer;
        matice : array[1..20,1..20] of Integer;
        pole : array[1 .. 32000] of Integer;
Begin
    read(N);
    for i := 1 to N do
        for j := 1 to N do
            read(matice[i, j]);
    pocitadlo := 0;
    for i := 1 to N do begin
        for j := 1 to N do
            pole[j] := matice[j, i];

        //bubbleSort
        for k := N DownTo 1 do begin
            for l := 2 to k do begin
                if (pole[l-1] > pole[l]) then
                begin
                    temp := pole[l-1];
                    pole[l-1] := pole[l];
                    pole[l] := temp;
                end;
            end;
        end;

        m := 1;
        while (m < N) do begin
            if (pole[m] = pole[m+1]) then begin
                pocitadlo := pocitadlo + 1;
            end;
            while (m < N) AND (pole[m] = pole[m+1]) do m := m + 1;
            m := m+1;
        end;
    end;
    writeln(pocitadlo);
End.