Аааа пожалуйста решите по информатике ато убьёт училка 8 КЛАССЕсли целое число m делится...

Question

Аааа пожалуйста решите по информатике ато убьёт училка 8 КЛАСС

Если целое число m делится на целое число n то вывести частное от токого деления в противном случае вывести сообщение в "НЕ ДЕЛЯТСЯ"

Answer 1

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.