Вводится последовательность из n целых чисел. Найти наибольшее количество одинаковых членов последовательности.

begin
  var a:=ReadlnString.ToIntegers.GroupBy(t->t).Select(t->(t.Key,t.Count))
      .OrderByDescending(t->t[1]).ThenBy(t->t[0]);
  var k:=a.First[1];
  a.Where(t->t[1]=k).Select(t->t[0]).Print(',');
  Writeln(' - ',k,' раз(а)')
end.


3 6 2 8 4 6 2 7 4 12 8 3 5
2,3,4,6,8 - 2 раз(а)

3 10 1 5 -8 -7 9 6 -4 -2 6 -2 9 -2 -2 5 -2 2 -5 6
-2 - 5 раз(а)