记录编号	13124	评测结果	AAAAAAAAAA
题目名称	排序工作量	最终得分	100
用户昵称	ybh	是否通过	通过
代码语言	Pascal	运行时间	4.049 s
提交时间	2009-09-28 19:13:46	内存使用	0.18 MiB

program PaiXuGongZuoLiang;
var
  a:array[1..10000] of real;
  n,i,j:longint;
  s:int64;
begin
  assign(input,'sortt.in');
  reset(input);
  assign(output,'sortt.out');
  rewrite(output);
  readln(n);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i]>a[j]
        then s:=s+1;
  writeln(s);
  close(input);
  close(output)
end.