Code:
const
BrojSlova=5;
zamena:array[1..BrojSlova]of char =('a','W','c','x','e');
// U zamenu stavis sva slova koja zelis da isprobas posto se za pass ne mogu
// staviti svi karakteri, pa bi to samo produzilo proveru
// U BrojSlova, koliko ima tih karaktera
// duzina je duzina zeljenog pass koja moze da se menja u programu
// naprimer krenes sa duzinom od 6 pa sve do 12
var
i,duzina:integer;
rec: string;
br:array[1..BrojSlova] of integer;
function povecaj(x:integer):boolean;
begin
br[x]:=succ(br[x]);
if br[x]>BrojSlova then
begin
if x=1 then
povecaj:=true
else
begin
br[x]:=1;
povecaj:=povecaj(x-1);
end;
end
else
povecaj:=false;
end;
begin
duzina:=3;
for i:= 1 to duzina do br[i]:=1;
repeat
begin
rec:='';
for i:= 1 to duzina do
rec:=rec+zamena[br[i]];
// U varijabli rec se nalazi kombinacija "aaa" zatim "aaW" tako sve do "eee"
end;
until povecaj(duzina);
end.