Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
# modula3/while_loop.m3
MODULE WhileDemo;
IMPORT IO;
VAR i: INTEGER;
begin
i := 1;
WHILE i <= 5 DO
IO.Put(i);
IO.PutChar('\n');
i := i + 1;
END;
END WhileDemo.Coding works best on desktop or with an external keyboard.