// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,10); a.Println;
var d:=new dictionary;
foreach var e in a.Sorted do d[e]:=d.Get(e)+1;
d.Println(NewLine)
end.
Тестовое решение:
n= 15
8 4 8 6 7 8 4 4 7 2 4 5 5 5 7
(2,1)
(4,4)
(5,3)
(6,1)
(7,3)
(8,3)