program Project2; {$APPTYPE CONSOLE} function ml(a,b,a1,b1:integer):boolean; var p:boolean; begin p:=false; if ((a>=a1)and(b>=b1))or((a>=b1)and(b>=a1)) then p:=true else if ((a<=a1)and(b<=b1))or((a<=b1)and(b<=a1)) then p:=true else p:=false; ml:=p; end; var a,b:array[1..200000]of integer; i,j,n,k:integer; begin assign(Input,'task.in'); reset(Input); readln(n); for i:=1 to n do readln(a[i],b[i]); close(Input); k:=0; for i:=1 to n do for j:=i to n do if (i<>j)and(ml(a[i],b[i],a[j],b[j])) then inc(k); assign(Output,'task.out'); rewrite(Output); writeln(k); close(Output); end.