Дано натуральное число. Найти все его делители и их сумму - Pascal ABC

Формулировка задачи:

Дано натуральное число. Найти все его делители и их сумму

Решение задачи: «Дано натуральное число. Найти все его делители и их сумму»

Листинг программы

Program My5_222;
 Uses Crt;
 Var n,i,sum:LongInt;
 Begin
  ClrScr;
  WriteLn('Найти все делители и суммы делителей числа n.');
  WriteLn('Введите число n');
  ReadLn(n);
  sum:=0;
  For i:=1 To n Do
  Begin
   If n Mod i =0 Then
    Begin
     WriteLn('Делитель: ',i);
     sum:=sum+i;
    End;
  End;
  WriteLn('Сумма делителей числа ',n,' равна ',sum);
  WriteLn('Для для выхода из программы нажмите <Enter...>');
  ReadLn;
 End.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Он предназначен для решения задач, связанных с вычислениями и обработкой данных. Код начинается с объявления переменных n, i и sum типа LongInt, которые будут использоваться для хранения введенного числа, индекса цикла и суммы делителей соответственно. Затем происходит инициализация переменной sum значением 0, которое будет использоваться для хранения суммы делителей. Далее следует цикл For, который выполняется от 1 до n (включительно). Внутри цикла проверяется условие n Mod i = 0, где n - введенное число, а i - текущий делитель. Если это условие истинно, то значит текущий делитель является делителем числа n, и в консоль выводится сообщение с названием делителя и его значением. После этого к сумме делителей прибавляется значение i. После завершения внутреннего цикла, в консоль выводится сообщение с суммой делителей числа n. Затем пользователю предлагается нажать для выхода из программы.