14 lines
142 B
Text
14 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;
|