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

Var m,n,ot:real;
begin
 writeln('Введите число m');
 readln(m);
 writeln('Введите число n');
 readln(n);
 ot:=m/n;
 if ot mod 2 = 0 then
 writeln(ot)
 else
 writeln('m на n на цело - не делится');
end.