2023-07-01 11:58:00 -04:00
|
|
|
begin
|
|
|
|
|
|
|
|
|
|
integer i;
|
|
|
|
|
boolean another;
|
|
|
|
|
i := 0;
|
|
|
|
|
another := true;
|
2024-10-16 18:07:41 -07:00
|
|
|
for i := i while another do
|
2023-07-01 11:58:00 -04:00
|
|
|
begin
|
2024-10-16 18:07:41 -07:00
|
|
|
i := i + 1;
|
2023-07-01 11:58:00 -04:00
|
|
|
outinteger(1,i);
|
2024-10-16 18:07:41 -07:00
|
|
|
comment - stop once i mod 6 = 0;
|
2023-07-01 11:58:00 -04:00
|
|
|
if i = (i div 6) * 6 then another := false;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
end
|
