ac1191.pas

来自「Ural(Acm.timus.ru)题解 By Maigo大牛」· PAS 代码 · 共 16 行

program ural1191;
var
  l,n,k,i:byte;
begin
  readln(l,n);
  for i:=1 to n do begin
    read(k);
    dec(l,l mod k);
    if l=0 then begin
      writeln('YES');
      halt;
    end;
  end;
  writeln('NO');
end.