Var
    a, b, n, i: integer;

begin
    readln(a, b);
    for i := a to b do
    begin
        n := i;
        write(n);
        while n lt;gt; 1 do
        begin
            if (n mod 2) = 0 then
                n := n div 2
            else
                n := (3 * n + 1) div 2;
            write( -gt; , n);
        end;
        writeln;
        
    end;
end.

чесно передрано с некого сайта и доработано под задачу