{$apptype console}
var f1,f2:text;
m,k:integer;
s:char;
begin
assign(f1,'magicnum.dat');
reset(f1);
readln(f1,m);
k:=0;
while not(eoln(f1)) do begin
read(f1,s);
if s in ['0'..'9'] then begin
k:=(k*10+(ord(s)-48))mod m;
writeln(s,' ',k);
readln;
end;

end;
close(f1);
assign(f2,'magicnum.ans');
rewrite(f2);
if k=0 then writeln('YES') else writeln(f2,k);
close(f2);
end.