program pr;uses crt;Var a,b:integer;BeginWriteln('vvedite a,b');readln(a);readln(b);if a mod b=0 then Writeln('da') else Writeln('not');readln;end.
program pr;
uses crt;
Var a,b:integer;
Begin
Writeln('vvedite a,b');
readln(a);
readln(b);
if a mod b=0 then Writeln('da')
else Writeln('not');
readln;
end.