RosettaCodeData/Task/Loops-While/Seed7/loops-while.seed7

$ include "seed7_05.s7i";

const proc: main is func
  local
    var integer: i is 1024;
  begin
    while i > 0 do
      writeln(i);
      i := i div 2
    end while;
  end func;