##
var n := 1024;
while n > 0 do
begin
  Println(n);
  n := n div 2;
end;