program puteri;
type sir=array[1..100] of longint;
var a,b,c,d:sir;
    f,g:text;
    n:longint;

procedure citire;
var i:longint;
begin
assign (f,'puteri.in'); reset (f);
read (f,n);
for i:=1 to n do readln (f,a[i],b[i],c[i]);
close (f);
end;

procedure verificare;
var i,j,sa,sb,sc,t:longint;
begin
t:=0;
assign (g,'puteri.out'); rewrite (g);
for i:=1 to n do begin
   for j:=i to n do begin sa:=a[i]+a[j];
                          sb:=b[i]+b[j];
                          sc:=c[i]+c[j]
                    end;
   if (sa=sb) and (sb=sc) and (sa>1) then inc (t) else
      if (sa mod 2=0) and (sb mod 2=0) and (sc mod 2=0) and (sa>1) then inc (t);
end;
write (g,t);
close (g);
end;

begin
citire;
verificare;
end.