记录编号	1082	评测结果	AAAAAAAAAA
题目名称	[NOIP 2007]统计数字	最终得分	100
用户昵称	zpl123	是否通过	通过
代码语言	Pascal	运行时间	0.499 s
提交时间	2008-07-23 21:33:38	内存使用	0.00 MiB

program pcount;
type arr=array[1..200000]of longint;
var
a:arr;
i,n,k:longint;

procedure sort(var a:arr;k,l:longint);
var
i,j,s,t,x:longint;
begin
i:=k;j:=l;x:=a[i];
repeat
while (x<=a[j])and(i<j)do dec(j);
if i<j then begin
t:=a[i];a[i]:=a[j];a[j]:=t;
end;
while (x>=a[i])and(i<j)do inc(i);
if i<j then begin
s:=a[i];a[i]:=a[j];a[j]:=s;
end;
until i=j;
a[i]:=x;inc(i);dec(j);
if i<l then sort(a,i,l);
if k<j then sort(a,k,j);
end;

begin
assign(input,'pcount.in');
reset(input);
assign(output,'pcount.out');
rewrite(output);
readln(n);
for i:=1 to n do readln(a[i]);
sort(a,1,n);
k:=1;
for i:=1 to n do begin
if a[i]=a[i+1]then inc(k);
if a[i]<>a[i+1]then begin
writeln(a[i],' ',k);
k:=1;
end;
end;
close(input);
close(output);
end.