记录编号	969	评测结果	EEEEWEEWEE
题目名称	[NOIP 2007]统计数字	最终得分	0
用户昵称	ReimBurSe.	是否通过	未通过
代码语言	Pascal	运行时间	10.000 s
提交时间	2008-07-23 15:28:04	内存使用	0.00 MiB

Program pcount;

Type
sc=array [1..1000] of integer;

Var
s:sc;
i,j:integer;
n,x:longint;
f1,f2:text;

Begin
assign(f1,'pcount.in');
assign(f2,'pcount.out');
reset(f1);
rewrite(f2);
for i:=1 to 1000 do s[i]:=0;
readln(f1,n);
for i:=1 to n do begin
 readln(f1,x);
 s[x]:=s[x]+1;
end;
for i:=1 to 1000 do
 if s[i]<>0 then
  writeln(f2,i,' ',s[i]);
close(f1);
close(f2);
End.