uses crt;
var n,j,uoc: integer;
    a: array[1..100] of integer;
    i,o: text;
function gcd(a,b: integer): integer;
begin
    while a<>b do if a>b then a:=a-b else b:=b-a;
    exit(a);
end;
begin
clrscr;
    assign(i,'PT.INP'); reset(i);
    assign(o,'PT.OUT'); rewrite(o);
    readln(i,n);
    for j:=1 to n do read(i,a[j]);
    uoc:=gcd(a[1],a[2]);
    for j:=3 to n do uoc:=gcd(uoc,a[j]);
    write(o,uoc);
end.

var i,n,uc:integer;

f1,f2:text;

A:array[1..100] of integer;

function ucln(a,b:integer):integer;

var r:integer;

begin

r:=a mod b;

while r<>0 do

begin

a:=b;

b:=r;

r:=a mod b;

end;

ucln:=b;

end;

begin

assign(f1,'PT.INP'); reset(f1);

assign(f2,'PT.OUT'); rewrite(f2);

read(f1,n);

for i:=1 to n do read(f1,A[i]);

uc:=ucln(A[1],A[2]);

for i:=1 to n do uc:=ucln(uc,A[i]);

write(f2,uc);

close(f1);

close(f2);

readln

end.