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

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