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

Вложенные циклы

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

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