var f,g:text;
    n,i,j,k:integer;
    m:longint;
    a:array[1..4096,1..4096] of 1..4096;
    tripleta:longint;
procedure citire;
begin
read(f,n,m);
for i:=1 to n do begin
  read(f,j,k);
  a[k,j]:=1;
end;
end;
begin
assign(f,'triplete.in'); reset(f);
assign(g,'triplete.out'); rewrite(g);
citire;
tripleta:=0;
for i:=1 to n-2 do
  for j:=i+1 to n-1 do
    for k:=j+1 to n do
      if (a[j,i]=1) and (a[k,j]=1) then tripleta:=tripleta+1;
write(g,tripleta);
close(g);
end.