n := 1024;
while n > 0 do
    Print(n, "\n");
    n := QuoInt(n, 2);
od;