13 lines
191 B
Text
13 lines
191 B
Text
MODULE octal;
|
|
|
|
IMPORT InOut;
|
|
|
|
VAR num : CARDINAL;
|
|
|
|
BEGIN
|
|
num := 0;
|
|
REPEAT
|
|
InOut.WriteOct (num, 12); InOut.WriteLn;
|
|
INC (num)
|
|
UNTIL num = 0
|
|
END octal.
|