program qq3;
var a,b,c,q,w:integer;
begin
writeln('Ââåäèòå äâà ÷èñëà <> 0');readln(a,b);
repeat
if a>b then a:=a mod b else b:=b mod a;
until
(a=0) or (b=0) ;
c:=abs(a+b) div (a+b);
writeln('',c);
readln;
end.