RosettaCodeData/Task/Loops-While/DWScript/loops-while.dw

var i := 1024;

while i > 0 do begin
   PrintLn(i);
   i := i div 2;
end;