uses crt;
var v,r:text;
i,j,n,tam,d:integer;
a:array[1..100] of integer;
begin
assign(v,'Ts.inp');
reset(v);
readln(v,N);
for i:=1 to n do
read(v,a[i]);
assign(r,'TS.out');
rewrite(r);
for i:=1 to n-1 do
for j:=i+1 to n do
 if a[i]>a[j] then
 begin
  tam:=a[i];
  a[i]:=a[j];
  a[j]:=tam;
 end;
i:=1;
while i<=n do
begin
d:=1;
while a[i]=a[i+1] do
begin
 i:=i+1;
 d:=d+1;
end;
if d>1 then writeln(r,a[i],' ',d);
i:=i+1;
end;
close(r);
end.

uses crt;
var fi,fo: text;
    n,i,j,tg: integer;
    a: array[1..32000]of integer;
begin
    assign(fi,'TS.INP'); reset(fi);
    assign(fo,'TS.OUT'); rewrite(fo);
    readln(fi,n);
    for i:=1 to n do read(fi,a[i]);
    for i:=1 to n do for j:=i+1 to n do if a[i]>a[i+1] then begin
        tg:=a[i];
        a[i]:=a[j];
        a[j]:=tg;
    end;
    for i:=1 to n do begin
        tg:=0;
        if a[i]=a[i+1] then inc(tg) else if tg>1 then writeln(fo,a[i],' ',tg);
    end;
    close(fi);
    close(fo);
end.