Помогите с Паскалем,пожалуйста.

[vlad0079]

Составить программу для нахождения чисел из интервала [M, 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.

Используйте тег code для оформления программного кода. Подробнее по ссылке: http://www.programmersforum.ru/showp...23&postcount=4

[type_Oleg]

Или так

procedure procKolDel(n:longint;var KolDel: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,kd:integer;
begin

repeat
writeln('Введите интервал вычислений m,n (n>m)');
readln(m,n);
until n>m;
mx:=1;
for i:=m to n do
 begin
  procKolDel(i,kd);
  if kd>mx then mx:=kd;
 end;
writeln('Максимальное количество делителе=',mx,' имеют:  ');
for i:=m to n do
 begin
  procKolDel(i,kd);
  if kd=mx then write(i,' ');
 end;
readln
end.

Или так

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;

procedure prDelit(k1,k2:LongInt;var mxd:Integer);
var i:LongInt;
begin
 mxd:=1;
 for i:=k1 to k2 do
  if KolDel(i)>mxd then mxd:=KolDel(i);
end;

var m,n,i:longint;
    mx:integer;
begin

repeat
writeln('Введите m, n  (n>m)');
readln(m,n);
until n>m;
prDelit(m,n,mx);
writeln('Максимальное количество делителе=',mx,' имеют:  ');
for i:=m to n do
  if KolDel(i)=mx then write(i,' ');
readln
end.