var f,g:text;
    a:array[1..100000,1..3]of integer;
    s:array[0..3]of integer;
    n,i,j,k,x,y,nr:longint;

begin
assign(f,'puteri.in');reset(f);
assign(g,'puteri.out');rewrite(g);
readln(f,n);
for i:=1 to n do
    for j:=1 to 3 do
        read(f,a[i,j]);
nr:=0;
for i:=1 to n-1 do
    for j:=i+1 to n do
        begin
        s[0]:=0;
        for k:=1 to 3 do
            if a[i,k]+a[j,k]>0 then begin
                                    inc(s[0]);
                                    s[s[0]]:=a[i,k]+a[j,k];
                                    end;
        if s[0]=1 then inc(nr);
        if s[0]=2 then begin
                       x:=s[1];y:=s[2];
                       while x<>y do
                             if x>y then x:=x-y
                                    else y:=y-x;
                       if x>1 then inc(nr);
                       end;
        if s[0]=3 then begin
                       x:=s[1];y:=s[2];
                       while x<>y do
                             if x>y then x:=x-y
                                    else y:=y-x;

                       y:=s[3];
                       while x<>y do
                             if x>y then x:=x-y
                                    else y:=y-x;
                       if x>1 then inc(nr);
                       end;
        end;
writeln(g,nr);
close(f);
close(g);
end.