Musterlösung zu "Schachtelung"

MODULE Schachtelung;

IMPORT Display;

PROCEDURE ProgMain*;
VAR i,j: INTEGER;

BEGIN
   FOR i:=1 TO 10 DO
         FOR j:=1 TO 10 DO 
               Display. WriteInt (i*j,4);
         END;
         Display. WriteLn;
   END;
   REPEAT UNTIL Display.KeyPressed();

END ProgMain;

END Schachtelung.

Zurück zur Wiederholung bei bekannter Anzahl der Durchläufe