15 lines
255 B
Text
15 lines
255 B
Text
|
/* Loops/Do-while */
|
||
|
|
do_while_demo:
|
||
|
|
procedure options(main);
|
||
|
|
declare
|
||
|
|
i fixed binary;
|
||
|
|
i = 0;
|
||
|
|
/* first iteration - before the loop */
|
||
|
|
i = i + 1;
|
||
|
|
put skip list(i);
|
||
|
|
do while (mod(i, 6) ~= 0);
|
||
|
|
i = i + 1;
|
||
|
|
put skip list(i);
|
||
|
|
end;
|
||
|
|
end;
|