排列组合

function pl(n,m:integer):integer;
var
 

p,i:integer;
begin
  p:=1;
  for i:=1 to m do
    begin
      p:=p*n;
      n:=n-1;
    end;
    result:=p;
end;
function zh(n,m:integer):integer;
var
  c,i:integer;
begin
  c:=1;
  for i:=1 to m do
    begin
      c:=c*n div i;
      n:=n-1;
    end;
    result:=c;
end;