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;
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;