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

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

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

program lesson13_13;
var
    m, n : integer;
begin
    repeat
        writeln('enter number m, n');
        readln(m, n);
        if m = 0 then
            writeln(m)
        else if m mod 2 = 0 then
            repeat
                m := m div 2;
                writeln(m);
		    until odd(m)
		else
            while m <= n do
            begin
                if m < 0 then
                    break
                else
                    m := m * 3;
                writeln(m);
			end;
	until m mod 2 = 0;
	readln();
end.