Спасибо ответившим! Попробовал вариант с пакетом анализа, предложенный ZVI и элементарную формулу if rnd()<=P then r=1. Чувствую себя двоечником, а ведь в институте ТВ проходил. Спасибо!

Подскажите, пожалуйста, решение следующий задачи:    
С вероятность P нужно сгенерировать 1, и соответственно с 1-P. Задача простая, но не могу никак её решить