Составить программу для нахождения чисел из интервала [М, N], имеющих наибольшее количество делителей (программа Паскаль)

uses crt;
function KolDel(n:longint):integer;
var i,k:integer;
begin
k:=1;
for i:=1 to round(sqrt(n))do
if n mod i=0 then k:=k+1;
KolDel:=k;
end;
var m,n,i:longint;
    mx:integer;
begin
clrscr;
repeat
writeln('Ведите интервал вычислений n>m');
readln(m,n);
until n>m;
mx:=1;
for i:=m to n do
if KolDel(i)>mx then mx:=KolDel(i);
writeln('Максимальное количество делителе=',mx,' имеют:');
for i:=m to n do
if KolDel(i)=mx then write(i,' ');
readln
end.

ответ:

мы не должны относится к бездомным людям с отвращением. ведь мы не знаем что с ними приключилось. может быть некоторые из них были успешными людьми и их кто-то подставил. а может быть и так что они сами до такого докатились. но все-же мы не в праве их осуждать. ведь они сами выбрали себе такою жизнь. ну а им можно не только добрыми словами но и вещами в которых они ,например: шапки, шарфы, перчатки, еда и питьё. но для начала нужно перестать относиться к ним как к ничтожеству и стать добрее.

ответ: используется только 3% раствор перекиси. во время первичной обработке образуется пена, которая удаляет мелкие загрязнения с раневой поверхности. применяется как при первичной обработке, так и вторичной, при обработке гнойных повреждений. правильное применение перекиси водорода состоит не в прикладывании ею повязке, а смачивании раны пульсирующей струей перекиси. как правило, обработка этим антисептиком производится при наличии неглубоких повреждений кожи, а также до того момента, когда начинается процесс рубцевания ткани. перекись водорода не применяется в комплексе с другими антисептиками, хранить ее нужно в защищенной от света емкости.

объяснение: края раны обрабатываются любым антисептиком. если его нанести на саму раневую поверхность, это может повредить ткани, в некоторых случаях вызвать некроз.