var f,g:text;
    nr,i,j,n,x,y,z,max:integer;
    a:array[1..3,1..5] of integer;
begin
     assign(f,'puteri.in'); reset(f);
     assign(g,'puteri.out'); rewrite(g);
     readln(f,n);                      nr:=0;
     for i:=1 to n do readln(f,a[1,i],a[2,i],a[3,i]);
     for i:=1 to n do
         for j:=i+1 to n do
             begin
                  max:=0;
                  x:=a[1,i]+a[1,j];
                  y:=a[2,i]+a[2,j];
                  z:=a[3,i]+a[3,j];
                  if x>y then max:=x
                         else max:=y;
                  if max<z then max:=z;
                  if (x=0)or((max mod x=0)and(x<>1)) then
                      if (y=0)or((max mod y=0)and(y<>1)) then
                         if (z=0)or(max mod z=0)and(z<>1) then inc(nr);
             end;
     write(g,nr);
     close(g);
end.