var i := 1024;

while i > 0 do begin
   PrintLn(i);
   i := i div 2;
end;