16 lines
191 B
Text
16 lines
191 B
Text
|
MODULE Loop EXPORTS Main;
|
||
|
|
|
||
|
|
IMPORT IO, Fmt;
|
||
|
|
|
||
|
|
VAR i := 1;
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
LOOP
|
||
|
|
IO.Put(Fmt.Int(i));
|
||
|
|
IF i = 10 THEN EXIT; END;
|
||
|
|
IO.Put(", ");
|
||
|
|
i := i + 1;
|
||
|
|
END;
|
||
|
|
IO.Put("\n");
|
||
|
|
END Loop.
|