В интервале [2;n] найти натуральное число с максимальной суммой делителей.

Program Natur;   Uses Crt;  Var a, Summa, n : integer;  Begin  Clrscr;  write('N=');  readln(N);  {Цикл с предусловием}  a:=2;   Summa:=0;   while a<=N do   begin  Summa:= Summa + a;  a := a + 1  end;  Writeln (' Результат первого суммирования:' , Summa) ;  {Цикл с постусловием}  а:=1;  Summa:=0;   repeat  Summa:=Summa+ а;  а:=а+1  until a>N;  Writeln  (' Результат второго суммирования:' , Summa) ;  {Цикл с параметром} Summa:=0;  for а := 2 to N do Summa : =Summa + a;  Writeln (' Результат третьего суммирования:', Summa); End

Vivdarkbloom, к сожалению, нашел сумму всех чисел от 2 до N, а не число с  максимальной суммой делителей. Надо было так, пишу на Visual Basic Sub Command1_Click() Rem Программа запускается по нажатию кнопки  Command1 на форме Dim n As Integer, Summa As Integer, Max As Integer Dim Maxn As Integer, i As Integer, k As Integer n = Text1.Text ' Это текстовое поле на форме, куда вводится n Max = 1: Maxn = 1 For i = 2 To n Summa = 0 For k = 1 To i If i Mod k = 0 Then Summa = Summa + k ' Если k - делитель i, то прибавляем Next k If Summa > Max Then ' Если сумма больше максимальной    Max = Summa ' Сохраняем сумму    Maxn = i ' И сохраняем число i. End If Next i Text2.Text = Maxn ' Это второе текстовое поле, куда выводится результат End Sub