计数排序肯定过不了，数组得开15亿的longint；

快排后计数核心，个人觉得还算短的

qsort(1,n);

j:=1;

for i:=2 to n+1 do

if a[i]=a[i-1] then inc(j)

else begin

write(a[i-1],' ',j);

writeln;

j:=1;

end;