Превратить функцию в процедуру function KolDel(n:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=1 to n do
if n mod i=0 then
k:=k+1;
KolDel:=k;
end;
var m,n,i:longint;
mx:byte;
begin
repeat
writeln('Введите интервал, 2 натуральных числа, второе болше первого');
readln(m,n);
until n>m;
mx:=1;
for i:=m to n do
if KolDel(i)>mx then mx:=KolDel(i);
writeln('Наибольшее количество делителей имеют числа:');
for i:=m to n do
if KolDel(i)=mx then write(i,' ');
writeln;
write('количество=',mx);
readln
end.
var i,k:integer;
begin
k:=0;
for i:=1 to n do
if n mod i=0 then
k:=k+1;
KolDel:=k;
end;
var m,n,i:longint;
mx:byte;
begin
repeat
writeln('Введите интервал, 2 натуральных числа, второе болше первого');
readln(m,n);
until n>m;
mx:=1;
for i:=m to n do
if KolDel(i)>mx then mx:=KolDel(i);
writeln('Наибольшее количество делителей имеют числа:');
for i:=m to n do
if KolDel(i)=mx then write(i,' ');
writeln;
write('количество=',mx);
readln
end.