program phan_thuong;
Uses crt;
var f,g:text;
A:array[1..100] of integer;
n,i,q:integer;
{---Chuong-trinh-ucln---}
function ucln(a,b:integer):integer;
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
ucln:=a;
end;
{---Chuong-trinh-chinh---}
BEGIN
Assign(f,'PT.inp'); reset(f);
Assign(g,'PT.out'); rewrite(g);
readln(f,n);
for i:=1 to n do read(f,A[i]);
q:=ucln(A[1],A[2]);
for i:=3 to n do
q:=ucln(q,A[i]);
write(g,q);
close(f); close(g);
end.
