Листинг программы

program z23;

{Найти наибольшее число из данного диапозона

у которого наибольшее колич.делителей}

uses crt;

var i,j,n,k,kk,p,max:longint;

    a:array[1..1000]of longint;

 begin

  clrscr;

   write('введите диапозон через пробел:');readln(n,k);

   for i:=n to k do

   begin

    kk:=0;

    for j:=2 to i-1 do if i mod j=0 then inc(kk);a[i]:=kk;

   end;

    max:=a[n];

   for i:=n+1 to k do

    if max<a[i] then begin

                      max:=a[i];p:=i;

                     end;

  writeln('Ответ: ',p);

 readln;

end.