program z;
Var
  n,i,j,k,v,count:Longint;
  a,ans:Array [1..80000] of Longint;
Begin
  Readln(n);
  v:=0;
  For i:=1 to n do Readln(a[i]);
  For i:=1 to n - 1 do begin
    k:=i + 1;
    count:=0;
    While (a[i]>a[k])and(k<=n) do begin Inc(count);Inc(k);end;
    v:=v+count;
  end;
  Writeln(v);
End.