program ideone;

Function gcd(a, b: integer): integer;
begin
  while (a <> 0) and (b <> 0) do
    if a >= b
    then
      a := a mod b
    else
      b := b mod a;
  gcd := a + b;
end;

var
arr: array[1..10] of integer;
i, ans: integer;

begin
    for i := 1 to 10 do
        read(arr[i]);

    ans := 0;

    for i := 1 to 10 do
        ans := gcd(ans, arr[i]);

    writeln(ans);
end.