Tổ Hợp Chập K của N số tự nhiên đầu tiên

var a:array[1..100] of integer;
    b:array[1..100] of boolean;
    n,k,z:integer;
procedure print;
    var x:integer;
    begin
       for x:=1 to k do write(a[x]);
       writeln;
    end;
procedure try(i:integer);
    var j:integer;
    begin
       for j:=1 to n do
       if b[j] then
       begin
          a[i]:=j;
          if i=k then print else
          begin
             b[j]:=false;
             try(i+1);
             b[j]:=true;
          end;
      end;
   end;
begin
    write(' nhap so phan tu cua day  : ');
    readln(n);
    write(' nhap so phan tu chap k ');
    readln(k);
    for z:=1 to 100 do b[z]:=true;
    try(1);
    readln;
end.