Задание 13 Урок 13.1

Задание 13 Урок 13.1

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

Получим:

9
27

var m,n : integer;
begin
writeln('Vvedite chislo m: ');
readln(m);
writeln('Vvedite chislo n: ');
readln(n);

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.