Найти числа с максимальным количеством делителей.

type
  num = record n, k, a: integer end;
const
  min = 586132;
  max = 586430;
var
  i, j: integer;
  p: array[1..3] of num;
begin
  p[1].k := 0;
  for i := min to max do
    begin
      p[3].n := i;
      p[3].k := 2;
      p[3].a := 1;
      for j := 2 to i div 2 do
        if i mod j = 0 then
          begin
            inc(p[3].k);
            p[3].a := j
          end;
      if p[3].k > p[1].k then p[1] := p[3]
      else
        if p[3].k = p[1].k then p[2] := p[3]
    end;
  for i := 1 to 2 do writeln(p[i].n, ' ', p[i].k, ' ', p[i].n, ' ', p[i].a);
  readln
end.

type
  num = record n, k, a, b: integer end;
const
  min = 586132;
  max = 586430;
var
  i, j: integer;
  p: array[1..3] of num;
begin
  p[1].k := -1;
  for i := min to max do
    begin
      p[3].n := i;
      p[3].k := 0;
      p[3].b := 1;
      for j := 2 to i div 2 do
        if i mod j = 0 then
          begin
            inc(p[3].k);
            p[3].a := p[3].b;
            p[3].b := j
          end;
      if p[3].k > p[1].k then p[1] := p[3]
      else
        if p[3].k = p[1].k then p[2] := p[3]
    end;
  for i := 1 to 2 do writeln(p[i].n, ' ', p[i].k, ' ', p[i].b, ' ', p[i].a);
  readln
end.