RosettaCodeData/Task/Loops-While/ALGOL-W/loops-while.alg

begin
    integer i;
    i := 1024;
    while i > 0 do
    begin
        write( i );
        i := i div 2
    end
end.