PersonalCorpus 版 (精华区)

153666 06:29:16 4 Mar 2002
Bozhang,HIT,P.R.China 1053 Pascal Accepted 0.01 sec 49K


var
    n,l,k,i:integer;
function gcd(a,b:integer):integer;
begin
    while a<>b do begin
        if a mod b=0 then begin result:=b; exit end;
        a:=a mod b;
        if b mod a=0 then begin result:=a; exit end;
        b:=b mod a;
    end;
    result:=a;
end;
begin
    readln(n); read(k);
    while n>1 do begin
        dec(n); read(l);
        k:=gcd(k,l);
        if k=1 then break;
    end;
    if k=0 then writeln('IMPOSSIBLE') else writeln(k);
end.