23 lines
476 B
Text
23 lines
476 B
Text
MODULE LoopsBreak;
|
|
IMPORT
|
|
RandomNumbers, Out;
|
|
|
|
PROCEDURE Do();
|
|
VAR rn : INTEGER;
|
|
exit : BOOLEAN;
|
|
BEGIN
|
|
exit := FALSE;
|
|
REPEAT
|
|
rn := RandomNumbers.randomInt( 20 );
|
|
Out.Int( rn, 0 );Out.Ln;
|
|
exit := rn = 10;
|
|
IF ~ exit THEN
|
|
rn := RandomNumbers.randomInt( 20 );
|
|
Out.Int( rn, 0 );Out.Ln
|
|
END
|
|
UNTIL exit;
|
|
END Do;
|
|
|
|
BEGIN
|
|
Do
|
|
END LoopsBreak.
|