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

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

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

var
  i, m, n: integer;
begin
  {writeln ('Vvedite celoe chislo M: ');
  readln(m);
  writeln ('Vvedite celoe chislo N: ');
  readln(n); }
  m:= 3;
  n:= 15;
  if ((m mod 2) = 0) then
      while ((m mod 2) = 0)  do
         begin
           m:= m div 2;
           write (m);
           writeln();
         end
  else
       repeat
         m:= m * 3;
         write (m);
         writeln();
       until (m >= n);
  readln();
end.