uses math;
function gcd(a, b : integer) : integer;
begin
if b = 0 then gcd := a
else gcd := gcd(b, a mod b)
end;
var
a, b : integer;
begin
ReadLn(a, b);
WriteLn(gcd(max(a, b), min(a, b)))
end.
dXNlcyBtYXRoOwpmdW5jdGlvbiBnY2QoYSwgYiA6IGludGVnZXIpIDogaW50ZWdlcjsKYmVnaW4KICAgICBpZiBiID0gMCB0aGVuIGdjZCA6PSBhCiAgICAgZWxzZSBnY2QgOj0gZ2NkKGIsIGEgbW9kIGIpCmVuZDsKCnZhcgoJYSwgYiA6IGludGVnZXI7CmJlZ2luCglSZWFkTG4oYSwgYik7CglXcml0ZUxuKGdjZChtYXgoYSwgYiksIG1pbihhLCBiKSkpCmVuZC4=