program test2;
Var a,b:longint;
begin
readln (a, b) ;
if (a > b) then a := (a + b) div (a - b)
else a := (a - b) mod 3;
writeln (a) ;
end.
输入 1： 24 12
输入 2： 7 12
输出：3|-2