Liệp kê các tập có k phần tử của n số hạng đầu tiên.

{liet ke cac tap co _k_ phan tu cua_ n_ so hang dau tien}
var a:array[0..100] of integer;
    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:=a[i-1] to n-k+i do
       begin
          a[i]:=j;
          if i=k then print else  try(i+1);
      end;
   end;
begin
    write(' nhap so phan tu cua day  : ');
    readln(n);
    write(' nhap so phan tu chap k ');
    readln(k);
    a[0]:=0;
    try(1);
    readln;
end.