#include<bits/stdc++.h>
using namespace std;
int main()
{
    int n;
    freopen("input.txt","r",stdin);
    freopen("output.txt","w",stdout);
    cin >> n;
    int a[n];
      for(int i=0;i<n;i++)
    cin >> a[i];
    int const maxn = 32000;
    int b[maxn]={0};
      for(int i=0;i<n;i++)
    b[a[i]]++;
      for(int j=0;j<maxn;j++)
        if(b[j]>1) cout << j << " " << b[j];
    return 0;
}

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.