var a, b: integer; begin writeln('Число, делитель'); Readln(a, b); if a mod b = 0 then writeln('Да') else writeln('нет') end.