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