program bai_giai;
uses crt;
var a:array[1..1000] of longint;i,j,k,dem,kt,n:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
        end;
  for i:=1 to n do
        begin
         kt:=1;
          for k:=1 to i-1 do if(a[i]=a[k])then kt:=0;
          if(kt=1)then
                begin
                 dem:=0;
                 for j:=1 to n do if(a[i]=a[j])then inc(dem);
                 writeln(a[i],':',dem);
                end;
        end;

 readln;
end.

program bai_giai; uses crt; var a:array[1..1000] of longint;i,j,k,dem,kt,n:longint; begin  clrscr;   write('nhap n:');readln(n);   for i:=1 to n do         begin          write('a[',i,']=');readln(a[i]);         end;   for i:=1 to n do         begin          kt:=1;           for k:=1 to i-1 do if(a[i]=a[k])then kt:=0;           if(kt=1)then                 begin                  dem:=0;                  for j:=1 to n do if(a[i]=a[j])then inc(dem);                  writeln(a[i],':',dem);                 end;         end;  readln; end.