记录编号	13762	评测结果	AAAAAAAAAA
题目名称	排序工作量	最终得分	100
用户昵称	枫铃Knight	是否通过	通过
代码语言	Pascal	运行时间	3.737 s
提交时间	2009-10-09 21:10:00	内存使用	0.18 MiB

program sort;

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

begin
  assign(input,'sortt.in');
  reset(input);

  read(n);

  for i:=1 to n do
    read(arr[i]);

  close(input);

  for i:=1 to n-1 do
    for j:=i+1 to n do
      if arr[i]>arr[j] then
        inc(ans);

  assign(output,'sortt.out');
  rewrite(output);

  writeln(ans);

  close(output);
end.