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]);
     pole[j] := matice[j, i];

  pocitadlo := 0;

  //bubbleSort
  for k := N*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;
  //
  for m := 1 to N do begin
   if (pole[m] = pole[m+1]) then begin
    pocitadlo := pocitadlo + 1;
   end;
  end;

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