记录编号	62119	评测结果	AAAAAAAAAA
题目名称	排序工作量	最终得分	100
用户昵称	CAX_CPG	是否通过	通过
代码语言	Pascal	运行时间	1.271 s
提交时间	2013-06-20 08:20:28	内存使用	0.22 MiB

var a:array[1..10000]of real;
    n,i,j,ans:longint;

begin
 assign(input,'sortt.in');reset(input);
 assign(output,'sortt.out');rewrite(output);
 readln(n);
 for i:=1 to n do read(a[i]);close(input);
 for i:=1 to n-1 do
  for j:=i+1 to n do
   if a[i]>a[j]then inc(ans);
 writeln(ans);close(output);
end.