Var
a, b : longint;
begin
readln(a,b);
while (a <> b) do
begin
if (a > b) then a := a - b
else b := b - a;
end;
writeln(a);
end.
输入：100 12
输出：4