回复：求会编程的坛友快进！！！！！（坛友帮帮顶）
百度了一个,啥语言不知道.
var
a:array[1..200001] of longint;
n,i,j,s:longint;
procedure sort(l,r: longint);
var
i,j,x,y: longint;
begin
i:=l;
j:=r;
x:=a[(l+r) div 2];
repeat
while a
<x do
inc(i);
while x<a[j] do
dec(j);
if not(i>j) then
begin
y:=a;
a:=a[j];
a[j]:=y;
inc(i);
j:=j-1;
end;
until i>j;
if l<j then
sort(l,j);
if i<r then
sort(i,r);
end;
begin
readln(n);
for i:=1 to n do
read(a);
sort(1,n);
s:=0;
for i:=1 to n do
if a<>a[i+1] then inc(s);
writeln(s);
i:=1;
a[n+1]:=-1;
repeat
s:=1;
while a=a[i+1] do
begin
inc(i);
inc(s);
end;
writeln(a,' ',s);
inc(i);
until i>n;
end.
