1/
uses crt;
function ucln(a,b:longint):longint;
begin
  if (a=0)or(b=0) then
    ucln:=a+b
  else
  while a<>b do
    if a>b then
      a:=a-b
    else
      b:=b-a;
  ucln:=a;
end;
var n,i:longint;
    a:array[1..100000000]of longint;
begin
  clrscr;
  read(n);
  for i:=1 to n do
  begin
    read(a[i]);
    if i>=2 then
      a[i]:=ucln(a[i-1],a[i]);
  end;
  write(a[i]);
end.