1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

//     { Private-Deklarationen }
//    AnzahlInTiefe : array[0..20] of integer;
//    SchonBetreten : array [1..20] of boolean;
 // rekursive Suche 
 procedure TIkosaeder.WegSuchen(von,Tiefe:Integer);
  var
   K:Integer;
   kamNichtWeiter : boolean;
  begin
   Weg[Tiefe]:=von;
   SchonBetreten[von] := true;
   if Tiefe=20 then
     WegGefunden
   else
   begin
     kamNichtWeiter:= true;
     for K:=1 to 3 do
     Begin
       if not SchonBetreten[Nachbar[von,K]] then
       Begin
         kamNichtWeiter:= false;
         WegSuchen(Nachbar[von,K],Tiefe+1);
       end;
     end;
     If kamNichtWeiter then
       inc(AnzahlInTiefe[tiefe]);
   end;
   SchonBetreten[von] := false;
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Tiefe  8 Anzahl     120
Tiefe  9 Anzahl     120
Tiefe 10 Anzahl     240
Tiefe 11 Anzahl     840
Tiefe 12 Anzahl    1200
Tiefe 13 Anzahl    2160
Tiefe 14 Anzahl    4920
Tiefe 15 Anzahl    7200
Tiefe 16 Anzahl    9240
Tiefe 17 Anzahl   12720
Tiefe 18 Anzahl   12600
Tiefe 19 Anzahl    7800