Создайте программу, которая будет симулировать бросок игрального кубика. Каждый бросок будет генерироватся случайно число в депозоне [1,6]. Кубик перекидывается N раз. После чего, программа выводит на экран сколько раз выпало каждое значение. И отдельно выводится информация о том, какое значение выпадало больше всего раз. N целое число, которое вводится с клавиатуры
Язык Pascal and.net

Надо проще

Это Ваша проблема. Вы даже название языка переврали. В вопросе ничего не сказано о том, какие ограничения на текст программы. Более того, я сильно подозреваю, что Ваше "проще" - на самом деле означает "длиннее раза в три".

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),1,6); a.Println;  var s:=a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0]);  s.Println;  var max:=s.MaxBy(t->t[1]);  Writeln('Наиболее частое значение: ',max[0])end.Примерn= 501 2 5 5 4 2 5 3 5 3 5 5 5 4 2 4 3 3 3 3 6 6 5 4 2 5 5 5 4 5 3 1 5 1 1 3 6 2 6 6 5 2 6 5 2 5 5 5 6 5(1,4) (2,7) (3,8) (4,5) (5,19) (6,7)Наиболее частое значение: 5