program board;
var
  table:array [1..5000,1..5000] of record
    a,u:boolean;
  end;
  sum,flag,a,b,i,j,s,n,m:longint;
  f,af:boolean;
begin
  fillchar (table,sizeof(table),0);
  assign (input,'board.in');
  reset (input);
  readln (n,m);s:=m;
  for i:=1 to m do begin
    readln (a,b);
    table[a,b].a:=true;
  end;
  close (input);
  assign (output,'board.out');
  rewrite (output);
  for i:=1 to n do begin
    flag:=0;
    for j:=1 to n do if table[i,j].a then begin
      inc(flag);
      table[i,j].u:=true;
    end;
    if flag>1 then inc(sum,flag);
  end;
  for i:=1 to n do begin
    flag:=0;af:=false;f:=false;
    for j:=1 to n do if (table[j,i].a) then if table[j,i].u then af:=true else begin
      f:=true;
      inc(flag);
      table[j,i].u:=true;
    end;
    if flag>1 then inc(sum,flag) else if (af) and (f) then inc(sum,flag);
  end;
  writeln (sum);
  close (output);
end.