7 lines
71 B
Text
7 lines
71 B
Text
INTEGER I;
|
|
I:=1024;
|
|
WHILE I>0 DO
|
|
BEGIN
|
|
OUTINT(I);
|
|
I:=I DIV 2
|
|
END
|