uses crt;
var f:text; i,n,j,kt:longint;
s:array[1..32000]of longint;
begin
clrscr;
assign(f,'input.pas');reset(f);
readln(f,n);
for i:=1 to n do read(f,s[i]);
close(f);
assign(f,'output.pas');rewrite(f);
for i:=1 to n do
begin
kt:=0;
for j:=1 to i-1 do
if s[i]=s[j] then kt:=1;
if kt=0 then
begin
for j:=1 to n do
if s[i]=s[j] then inc(kt);
writeln(f,s[i],' ',kt);
end;
end;
close(f);
end.
