Уисполнителя делитель две команды которым присвоены номера: раздели на 2 вычти 3

var a,b:integer;
begin
readln(a,b);
while a<>b do begin
if (a mod 2=0)and(b*2<=a)then begin
a:=a div 2;
writeln(':2');
end
else
begin
a:=a-2;
writeln('-2'); end;
end;
end.