var a:array[1..100000,1..3] of shortint;
    f:text;ok:boolean;
    s1,s2,s3:longint;
    i,j,n,nr:longint;

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

procedure determin;
begin
for i:=1 to n-1 do
    for j:=i+1 to n do
        begin
        s1:=a[i][1]+a[j][1];
        s2:=a[i][2]+a[j][2];
        s3:=a[i][3]+a[j][3];
        ok:=false;
        if((s1<>0)and(s2=0)and(s3=0))or
          ((s1=0)and(s2<>0)and(s3=0))or
          ((s1=0)and(s2=0)and(s3<>0)) then ok:=true
        else if ((s1=s2)and(s3=0))or
                ((s1=s3)and(s2=0))or
                ((s2=s3)and(s1=0)) then ok:=true
             else if (s1=s2)and(s2=s3) then ok:=true;
        if ok then nr:=nr+1;
        end;
end;

procedure afis;
begin
assign(f,'puteri.out');rewrite(f);
writeln(f,nr);
close(f);
end;

begin
nr:=0;
citire;
determin;
afis;
end.