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

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

var M, N: integer;
begin
  writeln('Vvedite chetnoe chislo M');
  readln(M);
  writeln('Vvedite chetnoe chislo N');
  readln(N);
  if (M mod 2 = 0) then
  begin
    while(M div 2 <> 0) do
    begin
      M := M div 2;
      writeln(M);
    end;
  end
  else
    while (M < N) do
    begin
      M := M*3;
      writeln(M);
    end;

  readln();
end.