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

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

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

M := 3;
N := 15;

Получим:

9
27

program task14;
var   m,n:integer;
begin
  writeln('vvedite M u N');
  readln(m);
  readln(n);
  if (m mod 2<>0) then
    repeat
        m:=m*3;
        writeln(m);
    until m>n
  else
  begin
    repeat
      if (m mod 2=0) then
      begin
        m:=m div 2;
        writeln(m);
      end
      else
        break
    until m<=1;
  end;
  readln();
end.