program zad8;
uses crt;
var m,n:integer;
begin
clrscr;
writeln ('m=');
readln(m);
writeln('n=');
readln(n);
if m mod n=0 then
writeln('m div n=',m div n)
else writeln ('not div');
readkey;
end.