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

Задача 14 Урок 13.1:

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

var m,n: integer;
begin
  writeln('vvedite cislo M');
  readln(m);
  writeln('vvedite cislo N');
  readln(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;
  writeln('END');
  readln();
end. 

Вывод консоли:

vvedite cislo M
3
vvedite cislo N
15
9
27
END