program ex2;
Var a,n,m:integer;
Begin
Readln(n,m);
If n>m then a:=m+1 else a:= n+1;
Repeat
a := a-1;
Until (m mod a=0) and (n mod a=0);
writeln(a);
End.
输入： 45 36

输出：9