Даны натуральные числа M и N (M < = N< 31). Найти число сочетаний из N по M.

program zz1;

var n, m:integer; / /задаем переменные целого типа

i:real;

function fact (x:integer) : integer;

var v, p:integer;

begin

p:=1;

for v:=1 to x do

begin

p:=p*v;

end;

fact:=p;

end;

begin

write (' введите первое число m '); / / вводим с клавиатуры первое число

read (m);

write (' введите второе число n '); / / вводим с клавиатуры второе число

read (n);

i:=fact (n) / fact (m) * fact (n - m); / / вычисляем число сочетаний по комбинаторной формуле с использованием функции вычисления факториала

write (' число сочетаний из N по M = ', i); / / выводим ответ

end.