记录编号	11227	评测结果	AAAAAAAAAA
题目名称	[NOIP 2007]统计数字	最终得分	100
用户昵称	打不死的羊	是否通过	通过
代码语言	Pascal	运行时间	0.519 s
提交时间	2009-07-19 08:44:48	内存使用	3.93 MiB

program pcount;
type
fxz=array[1..1000001] of longint;
var
temp,i,j,m,n,x,t,v:longint;
a:fxz;
f1,f2:text;
procedure qsort(l,r:longInt);
var
  i,j,x,y,y1:longint;
begin
  i:=l; j:=r; x:=a[(l+r) div 2];
  repeat
    while a[i]<x do i:=i+1;
    while x<a[j] do j:=j-1;
    if i<=j then
    begin
      y:=a[i]; a[i]:=a[j];a[j]:=y;
      i:=i+1; j:=j-1;
    end;
  until i>j;
  if l<j then qsort(l,j);
  if i<r then qsort(i,r);
end;
begin
assign(f1,'pcount.in');reset(f1);
assign(f2,'pcount.out');rewrite(f2);
readln(f1,n);
fillchar(a,sizeof(a),0);
for i:=1 to n  do
begin
readln(f1,a[i]);
end;
 qsort(1,n); i:=1;
   repeat
   t:=i;
    while a[i]=a[t+1] do
    inc(t);
      writeln(f2,a[i],' ',t-i+1);
               i:=t+1;
        until i>n;
     close(f2);
     end.