... 'PERMUTE.OUT'; max = 12; var n, i, k, a, b: Integer; x: array[1 max] of Integer; f: Text; Lê Minh Hoàng n xk) tr thành t ng d n 10 Chuyên procedure Swap(var X, Y: Integer); {Th t c var Temp: Integer; ... = 'BSTR.INP'; OutputFile = 'BSTR.OUT'; max = 30; var x: array[1 max] of Integer; n: Integer; f: Text; procedure PrintResult; {In c u hình tìm var i: Integer; begin for i := to n Write(f, x[i]); ... 'SUBSET.INP'; OutputFile = 'SUBSET.OUT'; max = 30; var x: array[0 max] of Integer; n, k: Integer; f: Text; procedure PrintResult; (*In t p {x1, x2, …, xk}*) var i: Integer; begin Write(f, '{'); for i...