program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var inp,outp: text;
    a: array[1..200000,1..2]of longint;
    n,i,j,ans: longint;
begin
   assign(inp,'task.in');
   assign(outp,'task.out');
   reset(inp);
   rewrite(outp);
   readln(inp,n);
   ans:=0;
   for i:=1 to n do
      readln(inp,a[i,1],a[i,2]);
   for i:=1 to n do
      if a[i,1]<a[i,2]then
         begin
            j:=a[i,1];
            a[i,1]:=a[i,2];
            a[i,2]:=j;
         end;
   for i:=1 to n-1 do
      for j:=i+1 to n do
         if (((a[i,1]>=a[j,1])and(a[i,2]>=a[j,2])))
            or((a[j,1]>=a[i,1])and(a[j,2]>=a[i,2]))then
               inc(ans);
   writeln(outp,ans);
   close(inp);
   close(outp);
end.