{programmer:mogtaba amirzade url http:\\www.ifjam.com } program p23(input,output); { } var x,y:array[1..100]of real; i,j:integer; begin for i:=1to 100 do readln(x[i]); for i:=1 to 10 do begin y[i]:=0; for j:=1 to 100 do if x[i]=x[j] then y[i]:=y[i]+1; end; for i:=1 to 100 do writeln(x[i]:1,':',y[i]:1); readln end.