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