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

program xmz;
var
f1,f2:text;
n,a,b,s:longint;
x:array[1..10000]of real;
begin
 assign(f1,'sortt.in');assign(f2,'sortt.out');
 reset(f1);rewrite(f2);
 read(f1,n);
 for a:=1 to n do
  read(f1,x[a]);

 for a:=1 to n do
  for b:=a-1 downto 1 do
   begin
    if x[b]>x[a] then s:=s+1;
   end;

 write(f2,s);
 close(f1);close(f2);
end.