13 lines
258 B
Text
13 lines
258 B
Text
! Loops/Continue - simula67 - 07/03/2017;
|
|
begin
|
|
integer i;
|
|
for i:=1 step 1 until 10 do begin
|
|
outint(i,5);
|
|
if mod(i,5)=0 then begin
|
|
outimage;
|
|
goto loop
|
|
end;
|
|
outtext(", ");
|
|
loop:
|
|
end
|
|
end
|