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

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

var m,n:integer;
begin
  writeln('Vvedite chislo m: ');
  readln(m);
  writeln('Vvedite chislo n: ');
  readln(n);
  if(m mod 2 =  0) then
  repeat
    m:=m div 2;
    writeln(m);
  until (m mod 2 =1)
  else
    while m<n do
      begin
        m:=m*3;
        writeln(m);
      end;
end.  

Консоль:

Vvedite chislo m: 
3

Vvedite chislo n: 
21

9
27