37 lines
562 B
Text
37 lines
562 B
Text
var i, n, maxdivcnt, divcnt;
|
|
|
|
procedure countdivs;
|
|
var p;
|
|
begin
|
|
divcnt := 1;
|
|
if n > 1 then divcnt := 2;
|
|
p := 2;
|
|
while p * p < n do
|
|
begin
|
|
if (n / p) * p = n then divcnt := divcnt + 2;
|
|
p := p + 1
|
|
end;
|
|
if p * p = n then divcnt := divcnt + 1
|
|
end;
|
|
|
|
procedure searchnext;
|
|
begin
|
|
call countdivs;
|
|
while divcnt <= maxdivcnt do
|
|
begin
|
|
n := n + 1;
|
|
call countdivs
|
|
end
|
|
end;
|
|
|
|
begin
|
|
i := 1; n := 1; maxdivcnt := 0;
|
|
while i <= 20 do
|
|
begin
|
|
call searchnext;
|
|
maxdivcnt := divcnt;
|
|
i := i + 1;
|
|
! n;
|
|
n := n + 1
|
|
end
|
|
end.
|