So sieht der Quellcode in Turbo Pascal aus.
1/2 Stunde Arbeit.
procedure kombi ;
type str1 = string[1] ;
const
max = 36 ;
feld : array [1..max] of str1 =
('a','b','c','d','e','f','g','h','i','j','k','l','m','n',
'o','p','q','r','s','t','u','v','w','x','y','z',
'0','1','2','3','4','5','6','7','8','9') ;
var l1,l2,l3,l4 : byte ;
s : string ;
t : text ;
begin
assign(t,'kombi.txt') ;
rewrite(t);
for l1:=1 to max do
for l2:=1 to max do
for l3:=1 to max do
for l4:=1 to max do
begin
s:= feld[l1] + feld[l2] + feld[l3] + feld[l4];
writeln(t,s);
end;
close(t);
end; // kombi
