{$macro on}
{$define start := while true do begin if false then begin}
{$define on :=  continue end else if}
{$define do_ := then begin}
{$define done := continue end; break end}

var i: integer;

begin
    i := 0;
    start
        on i mod 3 = 2 do_
            writeln(i);
            inc(i);
        on i < 9 do_
            write(i, ' ');
            inc(i);
    done
end.