(* Loops/Do-while *)

block
var
  i: integer;
begin
  i := 0;
  do
    i := i + 1;
    writeln(i);
    if i mod 6 = 0 then exit fi;
  od
end;