Если целое число m делится нацело число n, то вывести частное от деления,в противном случае вывести на экран сообщение «m не делится нацело на n» — Pascal(Паскаль)

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.