RosettaCodeData/Task/Loops-While/PascalABC.NET/loops-while.pas

##
var n := 1024;
while n > 0 do
begin
  Println(n);
  n := n div 2;
end;