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

Question

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

Answer 1

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