Написать рекрусивную функция для нахождения биномальных элементов - Pascal

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

Помогите плиз прогу решить....

Решение задачи: «Написать рекрусивную функция для нахождения биномальных элементов»

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

uses crt;
function C(n,m:word):word;
begin
if (m=0)or(m=n) then C:=1
else C:=C(n-1,m)+C(n-1,m-1);
end;
var a,b:word;
begin
clrscr;
repeat
writeln('Введите 2 положительных натуральных числа a>=b>0:');
readln(a,b);
until(b>=0)and(b<=a);
write('Биноминальный коэффициет из ',a,' по ',b,'=',C(a,b));
readln
end.

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

Используется модуль CRT (Console I/O).
Определена рекурсивная функция C для вычисления биномиального коэффициента.
Если m=0 или m=n, то C равно 1.
В противном случае C равно сумме C(n-1,m-1) и C(n-1,m).
Определены две переменные a и b типа word.
При запуске программы выводится приглашение для ввода двух положительных целых чисел.
Ввод осуществляется с помощью функции readln, принимающей два аргумента типа word.
Программа повторяется до тех пор, пока не будут введены корректные значения a и b.
Выводится формула для вычисления биномиального коэффициента с использованием переменных a и b.
Вычисляется значение биномиального коэффициента с помощью функции C.
Выводится результат вычисления биномиального коэффициента.