Помогите! Паскаль. Исполнитель “Раздвоитель” преобразует натуральные числа. У него есть две команды: “Вычесть 1” и “Разделить на 2”, первая команда уменьшает число на 1, вторая команда уменьшает число в два раза, если оно чётное, иначе происходит ошибка.

var a, b : integer;beginreadln(a, b);while a <> b dobeginif (a >= b * 2) and (a mod 2 = 0) thenbegina := round(a / 2);writeln(':2');endelsebegina := a - 1;writeln(-1);endend;end.