21 lines
294 B
Text
21 lines
294 B
Text
MODULE LoopBreak;
|
|
IMPORT
|
|
RandomNumbers,
|
|
Out;
|
|
|
|
PROCEDURE Do();
|
|
VAR
|
|
rn: LONGINT;
|
|
BEGIN
|
|
LOOP
|
|
rn := RandomNumbers.RND(20);
|
|
Out.LongInt(rn,0);Out.Ln;
|
|
IF rn = 10 THEN EXIT END;
|
|
rn := RandomNumbers.RND(20);
|
|
Out.LongInt(rn,0);Out.Ln
|
|
END
|
|
END Do;
|
|
|
|
BEGIN
|
|
Do
|
|
END LoopBreak.
|