program Project2;
uses
SysUtils;
var m,n:integer;
begin
Write('vvedi m=');
ReadLn(m);
Write('vvedi n=');
ReadLn(n);
if m mod n=0 then
WriteLn('poluchiloc=',m div n)
else
WriteLn(' ne delitsja !!!');
ReadLn;
end.