RosettaCodeData/Task/Loops-While/Simula/loops-while.simula

begin
  integer i;
  i:=1024;
  while i>0 do
  begin
     outint(i,5);
     i:=i//2-1
  end
end