RosettaCodeData/Task/Loops-Do-while/PL-0/loops-do-while.pl0

var i;
begin
  i := 0;
  i := i + 1;
  ! i;
  while (i / 6) * 6 <> i do
  begin
    i := i + 1;
    ! i
  end;
end.