Delphi. Про проценты

[Artsiom]

Всем привет. Вопрос про шанс выпадения 1 или 0.
Не понимаю, возможно ли и как сделать:
Вводиться цифра процента, например 50%
Вводиться количество результатов, например 3;
Программа выводит 3 результата:
1 1 0 или 0 1 1 и тд.
Можно это как то реализовать в Делфи?
Конечно цифры меняются и может быть количество результатов =1. Тогда как?

[Stilet]

А процент от чего?

[Artsiom]

Процент не от чего. Процент(даже шанс) что выпадет 1.

[Alek-de-Mik]

Да легко.
При условии 50%.
рандом от 0 до 100
если рандом < 50, то 0
если рандом > 50, тогда 1
Повторить столько раз сколько нужно.
Всё, проблема решена

[Artsiom]

А если рандом =50?

[Alek-de-Mik]

Вбивай от руки = )
Ну сделай условие если <=50

[Artsiom]

Нда, голова не работает вообще у меня...
Спасибо!