n个整数的集合中任意取r个数进行排列

type se=set of 1..100;

var s:se;

    n,r,num:integer;

    a:array[1..100] of integer;

procedure print;

var i:integer;

begin

  inc(num);

  for i:=1 to r do

  write(a[i]:3);

  writeln;

end;

procedure dep(t:integer);

var i:integer;

begin

  if t>r then begin print;exit;end;

  for i:=1 to n do

  if i in s then

  begin

    a[t]:=i;

    s:=s-[i];

    dep(t+1);

    s:=s+[i];

  end;

end;

begin

  readln(n,r);

  s:=[1..n];

  num:=0;

  dep(1);

  write('number=',num);

end.