Cоставить программу, моделирующую бросание кубика для игры в кости произвольное число раз и подсчитывающую число выпадений каждой грани.

// PascalABC.NET 3.0, сборка 1073
var
  i,n,p:integer;
  k:array[1..6] of integer;
begin
  Randomize;
  Write('Количество бросков кубика: '); Read(n);
  for i:=1 to 6 do k[i]:=0;
  for i:=1 to n do begin
    p:=Random(6)+1;
    k[p]:=k[p]+1
  end;
  Writeln('Результат бросания кубика');
  for i:=1 to 6 do Writeln(i,k[i]:6)
end.

Тестовое решение:
Количество бросков кубика: 10000
Результат бросания кубика
1  1704
2  1665
3  1659
4  1631
5  1663
6  1678