13 lines
142 B
Text
13 lines
142 B
Text
(* 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;
|