Если целое число m делится на целое число n без остатка,то вывести на экран результат деления и сообщение о делимости,иначе вывести сообщение о том,сто m не делится на n нацело и величину остатка от деления — Pascal(Паскаль)

Var m,n:integer;
begin
writeln('enter m');
readln(m);
writeln('enter n');
readln(n);
Writeln;
 
If m mod n=0 then
begin
Writeln('4ucJla geJl9Tc9 HaLLeJlo');
Writeln('OTBET= ', m/n:0:0);
end
else
begin
Writeln('4ucJla HE geJl9Tc9 HaLLeJlo');
Writeln('OcTaToK= ', m mod n);
end;
readln;
end.