Решите по информатике ато убьёт училка 8 класс если целое число m делится на целое число n то вывести частное от токого деления в противном случае вывести сообщение в "не делятся"

Program Primer;
var
     m:real;
     n:real;
begin
writeln('Введите данные:');
writeln('Число "m":');
readln(m);
writeln('Число "n":');
readln(n);
If (m mod n=0) then writeln('Частное=', m/n);
If (m mod n<>0) then writeln('НЕ ДЕЛИТЬСЯ');
End.