var 
     i,n,c,d:longint;
	 p:real;
	 a:array[0..30]of longint;
begin
	 assign(input,'freq.in');reset(input);
	 assign(output,'freq.out');rewrite(output);
	 fillchar(a,sizeof(a),0);
	 readln(n);
	 for i:=1 to n do begin
		 read(c);
	     inc(a[c]);
	 end;
	 for i:=1 to 30 do begin
		 p:=a[i]/n;
	     c:=round(p*1000);
	     if c=0 then writeln(i,':','0.0%')
		 else begin
			 d:=c div 10;
		     c:=(c-d*10)*10;
	         writeln(i,':',d,'.',c,'%');
		 end;
	 end;
	 close(input);close(output);
end.