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