QuickBasic Cafe Forum

Ich habe ein Problem eine Augabe zu lösen..
In der "Umgangssprache" hab ich es "gelöst"
aber ich bekomme es im Programm nicht hin
Die Aufgabe ist diese:
http://www.bwinf.de/uploads/media/bwinf251-einfach.pdf
(seite 6, Aufgabe 2)
Kann mir da jemand einen Tipp geben?
Ich dachte halt mit topologisch sortieren usw.

Danke schonmal,
Tim