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

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

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

M := 3;
N := 15;

var M, N :integer;
begin
  write('vvedi chislo M ');
  readln(M);
  write('vvedi chislo N ');
  readln(N);
  if((M mod 2) = 0) then
    while((M mod 2) = 0) do
      begin
        M := M div 2;
        writeln(M , ' ');
      end
  else
    while(M < N) do
      begin
        M := M * 3;
        writeln(M , ' ');
      end;
readln();
end.