Struktogramm

[baumina]

Das schöne an Pascal ist ja, dass man es tatsächlich, wie du sagst, von oben nach unten lesen kann. Also fängst am besten genau so an wie du es geschrieben hast.

Erst ein while ... da innerhalb der while (gekennzeichnet durch begin/end) keine weitere Abfrage ist, kannst darunter dann die 2. while machen. Nun wird's spannend ... innerhalb der 2. while-schleife hats mehrere if-Abfragen (alle gleichwertig, weil nicht weiter verschachtelt), also die musst dann auch da mit reinpacken. Die for-Schleife innerhalb der while-schleife ist auf selber Ebene wie die if-Abfragen. Zum Schluss hast noch eine if-Abfrage innerhalb der for-Schleife, also hast du insgesamt eine Verschachtelungstiefe von 3 Ebenen in der for-Schleife.