program
permo;
uses
crt;
var
p,k,n,pern,fakk:
integer
;
procedure
perm(
x:
fak:
);
i:
begin
fak:=
1
for
i:=
to
x
do
fak:=fak*i;
end
clrscr;
writeln
(
'n ve k y girin.....'
readln(n,k);
perm(n,pern);
perm(k,fakk);
p:=(pern
div
fakk);
'SONU€ : '
,p);
readkey;
.