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

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

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

var M, N:integer;
begin
  readln(M);
  readln(N);
  if ((M mod 2)=0) then
    begin
      while ((M mod 2)=0) do
        begin
          M:=M div 2;
          writeln(M);
        end;
    end else
        repeat
          M:=M*3;
          writeln(M);
        until M>N ;
      readln();
    end.