const 

    Input = 'SILICON.INP'; 

   Output = 'SILICON.OUT'; 

var 

    x: array[0..30] of byte; 

    n, k: word; 

    f: Text; 

    d: QWord;

procedure inRa;

var 

i: word; 

begin 

   Write(f, '{'); 

   for i := 1 to k-1 do Write(f, x[i], ', '); 

   WriteLn(f, x[k], '}'); 

   d:=d+1;

end; 

procedure Try(i: Integer); 

var 

j: word; 

begin 

  for j:= x[i-1] + 1 to n-k+i do 

    begin 

      x[i] := j; 

      if i = k then inRa

      else Try(i + 1); 

    end; 

end; 

begin 

    Assign(f, Input); Reset(F); 

    Read(f, n, k); Close(f); 

    Assign(f, Output); Rewrite(f);

    x[0] := 0; d:=0;

    Try(1); 

    write(f, d); Close(f); 

end.

bạn tham khảo thuật toán của chương trình này