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.