Найти натуральное число в диапазоне от 1 до n с максимальной суммой делителей. (паскаль)

#include <iostream>

#include <fstream>

#include <random>

using namespace std;

int main()

{

   ofstream fout("f.txt");

random_device rd;  

   mt19937 mer(rd());

for(int i = 0 ; i < 10 ; ++i)

 fout << mer() << ' ';

fout.close();

ofstream gout("g.txt");

ifstream fin("f.txt");

for (int i = 0 ; i < 10 ; ++i)

{

 unsigned int temp;

 fin >> temp;

 if( temp % 2 == 0 )

  gout << temp << ' ';

 cout << temp << ' ';

}

fin.close();

gout.close();

}

ответ:  Pascal ABC.Net

Program Zadacha;

var a,b:array[1..1000] of integer;

      n, i, max:integer;

BEGIN

            write('Задайте количество элементов массива N<1000: ');

            read(n);

            max:=-30000;

            for i:=1 to n do

            begin write('Задайте ',i,'-й элемент массива: ');

                      read(a[i]);

                      if a[i]>max then max:=a[i];

            end;          

            for i:=1 to n do

            begin b[i]:=a[i]*max;

                      writeln(b[i]);

            end;

END.

Объяснение: