9 lines
114 B
Text
9 lines
114 B
Text
|
begin
|
||
|
|
integer i;
|
||
|
|
i := 1024;
|
||
|
|
while i > 0 do begin
|
||
|
|
write( i );
|
||
|
|
i := i / 2;
|
||
|
|
end;
|
||
|
|
end
|