Рекурсия: вычисление биномиального коэффициента

function C(m, n :Byte):Longint;
Begin
 
    If (m=0) or (m=n)
    Then C:=1
    Else C:=C(m, n-1)+C(m-1, n-1)
End;

Procedure C(m, n: Byte; Var R: Longint);
Var R1, R2 : Longint;
Begin
      If (m=0) or (m=n)
      Then R:=1
      Else Begin
             C(m,   n-1, R1);
             C(m-1, n-1, R2);
             R:=R1+R2
           End;
End;

function C(m, n :Byte):Longint;
Begin
    If (m=0) or (m=n)
    Then C:=1
    Else C:=C(m, n-1)+C(m-1, n-1)
End;
var n,m:integer;
begin
repeat
writeln('Введите m и n, 0<=m<=n');
readln(m,n);
until(m>=0)and(n>=m);
Write('C=',C(m,n));
readln
end.