RosettaCodeData/Task/Loops-While/PL-0/loops-while.pl0

var i;
begin
  i := 1024;
  while i > 0 do
  begin
    ! i;
    i := i / 2
  end;
end.