Бывают же задачки, которые так приятно решить в виде одной конструкции языка! )))
// PascalABC.NET 3.2, сборка 1456 от 26.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
ReadSeqInteger(ReadInteger).Select(x->x.ToString).JoinIntoString('')
.GroupBy(x->x).Select(x->(x.Key,x.Count))
.OrderBy(x->x[1]).ThenByDescending(x->x[0]).Select(x->x[0]).Println(' ')
end.
Пример
3
456
20
3452
6 3 0 5 4 2
можно также ввести все в одной строке
3 456 20 3452
6 3 0 5 4 2