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

http://fkn.ktu10.com/?q=node/8697
Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран), например для:
M := 3;
N := 15;

9
27

var m,n : integer;
begin
        writeln ('введите  числа m,n');
          readln (m,n);
          if ((m mod 2)=0) then
          while((m mod 2)<1) do
           begin
          m:=m div 2;
           writeln (m);
           end
           else if ((m mod 2)=1) then
                   while ((m*3)<n) do
                   begin
                   m:=m*3;
                   write (m,' ' );
                   end;
end.