Напишите программу для вычисления числа сочетаний из N по M. Число сочетаний определяется по формуле N!/M!*(N-M)! — Pascal(Паскаль)

uses crt;
var m,n:integer;
function C(m,n:integer):longint;
begin
 if (m=0) or (m=n) then C:=1 else
 if m>n-m then C:=C(n-m,n) else
 C:=C(m-1,n-1)+C(m,n-1);
end;
begin
 clrscr;
 write('M N -> ');
 read(m,n);
 writeln('C=',c(m,n));
 readln;
end.