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

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

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

M := 3;
N := 15;

Получим:

9
27

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