Решение задачи 13 из главы 13.1

Решение задачи 13 из главы 13.1

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

program Project13;
var a, b: integer;
begin
  writeln('Vvedite pervoe zeloe chislo:');
  readln(a);
  writeln('Vvedite vtoroe zeloe chislo:');
  readln(b);
  if ((a mod 2) = 0) then
     repeat
     begin
       a:= a div 2;
       writeln(a);
     end;
     until ((a mod 2) =1) AND (a > 0)
  else
      while (a < b) do
      begin
       a:= a * 3;
       writeln(a);
       end;;
  readln();
end.