Program zadashaC;
var f1,f2:text; a:array[1..200000,1..2] of int64;
    k:int64; n,j,i:integer;
begin
assign(f1,'task.txt');
reset(f1);
readln(f1,n);
i:=0;
while not eof(f1) do
 begin
  i:=i+1;
  read(f1,a[i,1]);
  readln(f1,a[i,2]);
 end;
close(f1);
k:=0;
for i:=1 to n do
 for j:=1 to n do
 begin
  if ((a[i,1]>=a[j,1]) and  (a[i,2]>=a[j,2])) or   ((a[i,1]>=a[j,2]) and  (a[i,2]>=a[j,1])) then
   k:=k+1;
 end;
assign(f2,'task1.txt');
rewrite(f2);
writeln(f2,k);
close(f2)

end.