14 lines
191 B
Text
14 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.
|