---

var
  a,b,c:integer;
begin
  readln(a,b);
  while b>0 do begin
    c:=a mod b;
    a:=b;
    b:=c;
  end;
  writeln(a);
end.