Если целое m делится нацело на целое n,то вывести частное от деления, в противном случ. вывести "m на n нацело не делится"

1
2
3
4
5
6
7
8
9
10
11
12
var m,n:integer;
y:Real;
begin
Writeln('BBECTu m');
Readln(m);
Writeln('BBECTu n');
Readln(n);
y:=m/n;
if (y div 10)>0 then Writeln('m Ha n Hacelo He delitca')
else Writeln('Pe3ylt:= ',y:0:0);
Readln;
end.