Var I:byte;

begin

F:=1;

For i:=1 to p do F:=F*p;

end;

Begin

Write(‘ввести n и m ‘);

Readln(n,m);

y:=F(n)/(F(m)*F(n-m));

Writeln(‘Y=’,y);

End.

Подпрограмма функции имеет имя F , р – формальный параметр (параметр-значение); i – локальный параметр, n и m – фактические параметры. В исполнительной части подпрограммы есть оператор, в котором имени функции присваивается значение. Обращение к функции происходит в арифметическом выражении. Результат работы функции передается в то место, откуда она была вызвана. Функция F реализует операцию вычисления факториала.