var
n,i,s,vl:integer;
v:array of integer;

function Nod(a,b:integer):integer;
begin
 while a<>b do
 if a>b then a:=a-b else b:=b-a;
 Nod:=a;
end;

begin
write('Банок: ');
readln(n);
write('Нужно налить: ');
readln(vl);
write('Объемы банок: ');
setlength(v,n+1);
for i:=1 to n do
read(v[i]);
s:=nod(v[1],v[2]);
for i:=3 to n do s:=nod(s,v[i]);
if (vl mod s)=0 then writeln('Да') else writeln('Нет');
end.
