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

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

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

var m,n: integer;
begin
  write('vvedite 4islo M - ');
  readln(m);
  write('vvedite 4islp N - ');
  readln(n);
  if ((m mod 2)=0) then
     while ((m mod 2)<1) do
     begin
       m := m div 2;
       writeln(m);
     end
  else
     while (m < n) do
     begin
       m := m * 3;
       writeln(m);
     end;
  readln();
end.