mirror of
https://github.com/vishapoberon/oberonbyexample.git
synced 2026-04-05 21:02:25 +00:00
17 lines
180 B
Modula-2
17 lines
180 B
Modula-2
MODULE while;
|
|
|
|
IMPORT Out;
|
|
|
|
|
|
VAR
|
|
i : INTEGER;
|
|
|
|
|
|
BEGIN
|
|
i := 0;
|
|
Out.String("WHILE loop started"); Out.Ln;
|
|
WHILE i < 10 DO
|
|
i := i + 1;
|
|
Out.Int(i, 0); Out.Ln;
|
|
END;
|
|
END while.
|