Даны естественные числа M и N (M amp;lt;= Namp;lt; 31). Отыскать

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( введите 1-ое число m );  // вводим с клавиатуры 1-ое число

read(m);  

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

read(n);

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

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

end.