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

Question

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

Answer 1

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.