uses crt; var x,y:longint; n:integer; v:array[1..1000] of longint; function m (x,y,k:longint):boolean; begin if (x mod k=0) or (y mod k=0) then m:=true else m:=false; end; procedure citire; var i:integer; begin readln(x,y); readln(n); for i:=1 to n do begin readln(v[i]); end; for i:=1 to n do if m(x,y,v[i])=true then writeln('YES') else writeln('NO'); end; begin clrscr; citire; end.