Реферат: Вычисление вероятности игры в КРЭКСкости

delay(10000);{Задержка – нужна,чтобы генерируемые числа не повторялись}

end ;{конец моделирования “n” партий }

wer:=(w/n);{Вероятность выигрыша равна отношению числа выигрышей к

общему количеству партий в крэкс }

writeln(‘Вероятность выигрыша равна = ‘,wer);

readln;

END .

После запуска программы требуется ввести количество партий .В результате программа выдаст количество выигранных и проигранных партий , а так же посчитает вероятность выигрыша . -