10 lines
119 B
Text
10 lines
119 B
Text
|
begin
|
||
|
|
integer i;
|
||
|
|
i := 1024;
|
||
|
|
while i > 0 do
|
||
|
|
begin
|
||
|
|
write( i );
|
||
|
|
i := i div 2
|
||
|
|
end
|
||
|
|
end.
|