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

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

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

M := 3;
N := 15;

Получим:

9
27

var M, N: integer;
begin
   writeln('Введите целое число M:');
   readln(M);
   writeln('Введите целое число N:');
   readln(N);
   if (M mod 2 = 0) and (M <> 0) then
    begin
     while M mod 2 = 0 do
      begin
       M := M div 2;
       writeln(M);
      end;
    end
   else
    begin
     while M <= N do
      begin
       M *= 3;
       writeln(M);
      end;
    end;
   readln();
end.