13 lines
170 B
Text
13 lines
170 B
Text
MODULE DivBy2;
|
|
IMPORT InOut;
|
|
|
|
VAR
|
|
i: INTEGER;
|
|
BEGIN
|
|
i := 1024;
|
|
WHILE i > 0 DO
|
|
InOut.WriteInt(i, 4);
|
|
InOut.WriteLn;
|
|
i := i DIV 2
|
|
END
|
|
END DivBy2.
|