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

// PascalABC.NET 3.0, сборка 1073var  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  17042  16653  16594  16315  16636  1678