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

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

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

var m,n : integer;
begin
  write('Введите два целых числа  через пробел (M и N) и нажмите ENTER:');
  readln(m,n);
  if ((m mod 2) = 1) then
  begin
    repeat
      m := (m * 3);
      writeln(m)
    until (m > n) ;
  end
  else
    while ((m mod 2) = 0) do
    begin
      m := (m div 2);
      writeln(m);
    end;
  write('Программа завершена! Нажмите ENTER!');
  readln();
end.