Найти вероятность того, что ровно 3 раза выпадет «шестерка» - Pascal (80452)

Формулировка задачи:

Помогите пожалуйста, в написании программы... Игральная кость брошена 6 раз. Найти вероятность того, что ровно 3 раза выпадет «шестерка».

Решение задачи: «Найти вероятность того, что ровно 3 раза выпадет «шестерка»»

Листинг программы

program Fortuna;
 
var
  i1, i2, i3, i4, i5, i6: integer;
  count6: integer;
  M, N: word;
begin
  M := 0;
  N := 0;
  for i1 := 1 to 6 do
    for i2 := 1 to 6 do
      for i3 := 1 to 6 do
        for i4 := 1 to 6 do
          for i5 := 1 to 6 do
            for i6 := 1 to 6 do
            begin
              count6 := 0;
              if i1 = 6 then
                Inc(count6);
              if i2 = 6 then
                Inc(count6);
              if i3 = 6 then
                Inc(count6);
              if i4 = 6 then
                Inc(count6);
              if i5 = 6 then
                Inc(count6);
              if i6 = 6 then
                Inc(count6);
              if count6 = 3 then
                Inc(M);
              Inc(N);
            end;
  writeln(M, '/', N, '=', M / N: 0: 6);
 
  M := (5 * 5 * 5) * (6 * 5 * 4 div 1 div 2 div 3);
  N := 6 * 6 * 6 * 6 * 6 * 6;
  writeln(M, '/', N, '=', M / N: 0: 6);
end.

Объяснение кода листинга программы

Объявляются переменные:
- i1, i2, i3, i4, i5, i6 (целочисленные переменные для хранения результатов бросков кубика)
- count6 (целочисленная переменная для подсчета количества выпадений шестерок)
- M, N (целочисленные переменные для вычисления и хранения вероятности)
Устанавливаются начальные значения переменных:
- M и N устанавливаются равными 0.
Выполняется вложенный цикл:
- Используются вложенные циклы для перебора всех возможных комбинаций результатов бросков шестигранного кубика.
Подсчитывается количество выпадений шестерки:
- Для каждой комбинации бросков подсчитывается количество выпадений шестерки путем проверки равенства каждого результата броска переменной count6.
Подсчитывается количество случаев, когда выпадает шестерка ровно 3 раза:
- Если количество выпадений шестерки равно 3, значение M увеличивается.
Подсчитывается общее количество всех возможных комбинаций результатов бросков:
- Значение N увеличивается.
Выводится вероятность выпадения шестерки ровно 3 раза:
- Выводится результат деления M на N с точностью вывода до 6 знаков после запятой.
Вычисляется вероятность выпадения шестерки ровно 3 раза другим способом:
- Значения M и N переприсваиваются для использования формулы, аналогичной подсчетам в цикле.
Снова выводится вероятность выпадения шестерки ровно 3 раза:
- Выводится обновленный результат деления M на N с точностью вывода до 6 знаков после запятой.
Завершение программы.