9 lines
134 B
Text
9 lines
134 B
Text
dcl value fixed bin (31) init (0);
|
|
do forever;
|
|
value = value + 1;
|
|
|
|
if mod(value, 6) = 0 then
|
|
leave;
|
|
|
|
put list (value);
|
|
end;
|