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

Формулировка задачи:

Нужно найти коэффициент бинома Ньютона. При вводе чисел больше 10 выдает неверные значения .

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.

Решение задачи: «Найти коэффициент бинома Ньютона»

Листинг программы

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.

Объяснение кода листинга программы

Программа получает на вход два целых числа M и N от пользователя.
Если условие 0 <= M <= N выполняется, то начинается расчет биномиального коэффициента.
Инициализируется переменная C значением 1.
Запускается цикл, который выполняется M раз.
Внутри цикла значение C умножается на (N-i+1) и делится на i.
Результат вычислений записывается в переменную C.
После завершения цикла выводится значение C, которое является биномиальным коэффициентом.
Если условие 0 <= M <= N не выполняется, то выводится сообщение об ошибке.