var n,i,j,p:longint;
    m:array[1..100000,1..3] of byte;
    v:array[1..3] of byte;
    f:text;
    jo:boolean;
    k1,k2:byte;
begin
   assign(f,'puteri.in');
   reset(f);
   readln(f,n);
   for i:=1 to n do
    readln(f,m[i,1],m[i,2],m[i,3]);
   close(f);

   for i:=1 to n-1 do
    for j:=i+1 to n do begin
      jo:=true;
      v[1]:=m[i,1]+m[j,1];
      v[2]:=m[i,2]+m[j,2];
      v[3]:=m[i,3]+m[j,3];
      for k1:=1 to 2 do
       for k2:=k1+1 to 3 do
         if v[k1]<>0 then
           if v[k2]<>0 then
             if v[k1]<>v[k2] then jo:=false;
      if jo then p:=p+1;
    end;
    assign(f,'puteri.out');
    rewrite(f);
    writeln(f,p);
    close(f);


end.