если целое число m делится на целое число n то на экран частное от деления в противном случае сообщение "m na n на целое не делится"

var m,n  : integer;
begin
  Writeln ('Введите делимое число');
  readln (m);
  Writeln ('Введите делитель');
  readln (n);
  if (m mod n)=0 then writeln (m,':',n,'=',m/n)
                        else writeln (m,' на ',n,' на целое не делится');
end.