Deskripsi untuk soal nomor 34 - 37

var D:array[0..6] of char = ('A','B','C','D','E','F','G'); 

// procedure untuk menukarkan isi array D[a] dan D[b] 
procedure swap(a: integer; b: integer); 
var tmp: char; 
begin 
  ...... // perintah-perintah untuk menukarkan 
end; 

// procedure untuk mencetak isi array dalam satu baris. 
procedure printarray; 
var i: integer; 
begin 
  ........ // perintah-perintah untuk mencetak 
end; 

procedure ZZ(m: integer); 
var i: integer; 
begin 
  if (m <= 0) then 
    printarray 
  else 
  begin 
    ZZ(m-1); 
    for i := m-2 downto 0 do 
    begin 
      swap(i,m-1); 
      ZZ(m-1); 
      swap(i,m-1); 
    end; 
  end; 
end;