Задано число n. требуется найти число от 1 до n, включительно, которое имеет максимальное число положительных целых делителей. например, если n = 20 то искомое число 12, у него делители 1 2 3 4 6 12.

program Delitel;

var

 n, i, j, c, d: Integer;

 a: array of Integer;

begin

 Write ('Введите N: ');

 ReadLn (n);

 SetLength (a, n + 1);

 for i := 1 to n do begin

   c := 0;

   for j := 1 to i do begin

     if i mod j = 0 then

       Inc (c);

   end;

   a [i] := c;

 end;

 c := 1;

 for i := 1 to n do begin

   if a [i] > a [c] then

     c := i;

 end;

 WriteLn ('Число ', c, ' имеет ', a [c], ' делителей.');

 ReadLn;

end.