Вычисление вероятности игры в КРЭКС(кости)

Wer:= (w/n) ;{Вероятность выигрыша равна отношению числа выигрышей к.Writeln (‘Вероятность выигрыша равна = ‘,wer).{моделирование n партий в крэкс}.1;{на кости не может выпасть }.{проверка суммы на выигрыш }.{проверка на проигрыш}.{бросаем кости пока не выпадет пойнт или 7}.Writeln (‘Выигрыш = ‘,w,’числу раз’).Writeln (‘Проигрыш = ‘,p,’числу раз’).Общему количеству партий в крэкс }.