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

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

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

M := 3;
N := 15;

Получим:

9
27

var m, n : integer;
begin
  writeln('vvedite chislo');
  readln(m);
  writeln('vvedite chislo');
  readln(n);
  if ((m mod 2) = 0) then
    while ((m mod 2) = 0) do
       begin
         m := m div 2;
         writeln(m);
       end
  else
    repeat
       m := m * 3;
       writeln(m);
    until m > n;
  readln();
end.