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.