Задача 13 урок 13.1

Задача 13 урок 13.1

Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран).

var m,n: integer;
begin
readln(m,n);
if (m mod 2=0) then 
    repeat
        m:=m div 2;
        writeln(m);
    until(m mod 2=1)
else 
    repeat
        m:=m * 3;
        writeln(m);
    until(m > n);
end.