var
  f:array[1..30] of longint;
  n,i,a:longint;

begin
  assign(input,'freq.in');
  assign(output,'freq.out');
  reset(input);rewrite(output);

  fillchar(f,sizeof(f),0);
  read(n);
  for i:=1 to n do 
  begin
    read(a);
    inc(f[a])
  end;
  
  for i:=1 to 30 do 
	if f[i]=0 then writeln(i,':0.0%') else 
	begin
		a:=trunc(1000*f[i]/n);
	    writeln(i,':',a div 10,'.',a mod 10,'%');
	end;
	close(input);close(output);
end.