Найти коэффициент бинома Ньютона

var
  N, M: word;
  C: real;
  D, Num, D1: integer;
  i: integer;
 
begin
  {Ввод}
  writeln('Введите целые M, N(Причем 0 <= M <= N)');
  readln(M, N);
  Num := 1;
  D := 1;
  D1 := 1;
  if (0 <= M) and (M <= N) then
  begin
    for i := 1 to N do  // Нахождение n! в числителе                                   
      Num := i * Num;  // Накопление произведения в числителе
    {Накопление произведения в знаменателе}
    for i := 1 to M do  // Нахождение m! в знаменателе
      D := i * D;
    for i := 1 to (N - M) do  // Нахождение (n-m)!
      D1 := i * D1;
    {Нахождение коэффициента бинома Ньютона}
    C := Num / (D * D1);
    {Вывод}
    writeln('Биномиальный коэффициент = ', C);
    
  end
  else 
    writeln('Введены неверные значения');
end.

D, Num, D1: int64;

program lab;
 
var
  N, M, C, i: word;
 
begin
  {Ввод}
  writeln('Введите целые M, N(Причем 0 <= M <= N)');
  readln(M, N);
  if (0 <= M) and (M <= N) then
  begin
    C := 1;
    for i := 1 to M do
      C := C * (N - i + 1) div i;
    writeln('Биномиальный коэффициент = ', C);
  end
  else
    writeln('Введены неверные значения');
end.