Паскаль. написать програму

Вычислить вероятность появления случайного события ровно
m раз в n независимых опытах по формуле Бернулли: http://ru.wikipedia.org/wiki/Формула_Бернулли
q = 1-p, m, n - целые положительные числа, р-действительное положительное число из интервала (0, 1).
Нахождение факториала оформить в виде подпрограммы-функции.