记录编号	11224	评测结果	AAAAAAAAAA
题目名称	[NOIP 2007]统计数字	最终得分	100
用户昵称	王瑞祥K	是否通过	通过
代码语言	Pascal	运行时间	0.506 s
提交时间	2009-07-19 08:38:20	内存使用	0.87 MiB

program pcount(input,output);
var
 a:array[1..200000]of longint;
 i,s,t,n:longint;
procedure qsort(l,r:longint);
var i,j,x,t:longint;
begin
 i:=l; j:=r; x:=a[l];
 repeat
  while(i<j)and(a[j]>=x)do dec(j);
  t:=a[j];a[j]:=a[i];a[i]:=t;
  while(i<j)and(a[i]<=x)do inc(i);
  t:=a[i];a[i]:=a[j];a[j]:=t;
 until i=j;
 if j>l then qsort(l,j-1);
 if i<r then qsort(i+1,r);
end;
begin
 assign(input,'pcount.in');assign(output,'pcount.out');
 reset(input);rewrite(output);
 readln(n);
 for i:=1 to n do
  readln(input,a[i]);
 qsort(1,n);
 write(output,a[1],' ');
 t:=a[1]; s:=1;
 for i:=2 to n do begin
  if a[i]=t then s:=s+1;
  if a[i]<>t then begin
   writeln(output,s);
   write(output,a[i],' ');
   s:=1;
   t:=a[i];
  end;
 end;
 write(output,s);
 close(input);close(output);
end.