НАПИШИТЕ КОД НА ПАСКАЛЕ вот код на питоне, кто может, перепишите его на паскале
start, end = 586132, 586430

def allDivs( x ):
divs = [1, x]
d = 2
while d*d <= x:
if x % d == 0:
divs.append( d )
if x // d > d:
divs.append( x//d )
d += 1
return sorted(divs)

minDivs = []
maxDivs = []
for x in range( start, end+1 ):
divs = allDivs( x )
if len(divs) >= len(maxDivs):
maxDivs = divs
if len(divs) > len(minDivs):
minDivs = divs

print( len(minDivs), minDivs[-1], minDivs[-2] )
print( len(maxDivs), maxDivs[-1], maxDivs[-2] )

Объяснение:

#include <iostream>

using namespace std;

long double fact(int N)

{

   if(N < 0) // если пользователь ввел отрицательное число

       return 0; // возвращаем ноль

   if (N == 0) // если пользователь ввел ноль,

       return 1; // возвращаем факториал от нуля - не удивляетесь, но это 1 =)

   else // Во всех остальных случаях

       return N * fact(N - 1); // делаем рекурсию.

}

int main()

{

   int N;

   setlocale(0,""); // Включаем кириллицу

   cout << "Введите число для вычисления факториала: ";

   cin >> N;

   cout << "Факториал для числа " << N << " = " << fact(N) << endl << endl; // fact(N) - функция для вычисления факториала.

   return 0;

}

Объяснение:

#include <iostream>

using namespace std;

long double fact(int N)

{

   if(N < 0) // если пользователь ввел отрицательное число

       return 0; // возвращаем ноль

   if (N == 0) // если пользователь ввел ноль,

       return 1; // возвращаем факториал от нуля - не удивляетесь, но это 1 =)

   else // Во всех остальных случаях

       return N * fact(N - 1); // делаем рекурсию.

}

int main()

{

   int N;

   setlocale(0,""); // Включаем кириллицу

   cout << "Введите число для вычисления факториала: ";

   cin >> N;

   cout << "Факториал для числа " << N << " = " << fact(N) << endl << endl; // fact(N) - функция для вычисления факториала.

   return 0;

}