============================================================= const MAXN = 3; procedure permut(s:string); var ch : char; begin if (length(s) = MAXN) then writeln(s) else for ch := 'A' to 'C' do if (pos(ch,s) = 0) then permut(s+ch); end; begin permut(''); end. ============================================================= Di atas adalah prosedur untuk menampilkan permutasi dari 'A','B','C'. Jika dijalankan akan menampilkan: ABC ACB BAC BCA CAB CBA