RosettaCodeData/Task/Count-in-octal/Modula-2/count-in-octal.mod2

MODULE octal;

IMPORT  InOut;

VAR     num             : CARDINAL;

BEGIN
  num := 0;
  REPEAT
    InOut.WriteOct (num, 12);           InOut.WriteLn;
    INC (num)
  UNTIL num = 0
END octal.