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

program pcount;
type
shuzu1=array[1..1000001] of longint;
var
temp,i,j,m,n,x,t,v:longint;
s:shuzu1;
f1,f2:text;
procedure qsort(l,r:longInt);
var
  i,j,x,y,y1:longint;
begin
  i:=l; j:=r; x:=s[(l+r) div 2];
  repeat
    while s[i]<x do i:=i+1;
    while x<s[j] do j:=j-1;
    if i<=j then
    begin
      y:=s[i]; s[i]:=s[j];s[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(s,sizeof(s),0);
for i:=1 to n  do
begin
readln(f1,s[i]);
end;
 qsort(1,n); i:=1;
   repeat
   t:=i;
    while s[i]=s[t+1] do
    inc(t);
      writeln(f2,s[i],' ',t-i+1);
               i:=t+1;
        until i>n;
     close(f2);
     end.