В интервале [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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.