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

http://fkn.ktu10.com/?q=node/8697

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

program task13_lesson13_1;
var m, n : integer;
begin
  writeln('Enter even Number :');
  readln(m);
  writeln('Enter number :');
  readln(n);
  if ((m mod 2) = 1) then     // ветка нечетности
     while m < n do
           begin
             writeln(m*3);
             m := m * 3;
           end
  else
    while ((m mod 2) = 0) do
          begin
            writeln(m div 2);
            m := (m div 2);
          end;
  readln();
end.