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

program t216;

uses SysUtils;                 //Подключить этот модуль

//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************
var
  i   : WORD;                  //Индекс
  N   : WORD;                  //Число
  Sum : DWORD = 0;             //Сумма
  Str : string = '';           //Строка для делителей

//****************************************************************
// ФУНКЦИИ И ПРОЦЕДУРЫ
//****************************************************************

//****************************************************************
// Функция принимает число и возможный делитель.
// ВХОД:  Num - число
//        Del - возможный делитель
// ВЫХОД: TRUE - если Del является делителем числа Num
//****************************************************************
function ThisDivider(Num, Del : WORD) : boolean;
begin
  if Del = Num then
    begin
      Result := FALSE;
      Exit;
    end;
  Result := (Num mod Del) = 0;
end;

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
begin
  Randomize;               //Запустить генерацию случайных чисел
  N := Random(High(N));    //Получить случайное число

  WriteLn('N = ', N);

  for i := 1 to N do       //В цикле проверить возможные делители
    begin
      if ThisDivider(N, i) then  //Если это делитель, то
        begin
          Sum := Sum + i;        //прибавить его к сумме
          Str := Str + IntToStr(i) + ' ';
        end;
    end;

  //Вывести на экран
  WriteLn('Dividers : ', Str);
  WriteLn('Sum of the divisors = ', Sum);

  WriteLn('The end. Press ENTER...');
  ReadLn;
end.     

#include <cstdlib>
#include <iostream>
#include <sstream>                    //Подключить этот файл

using namespace std;

//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************
unsigned short int N;                  //Число
unsigned long int  Sum = 0;            //Сумма
ostringstream      Str;                //Строка для делителей 

//****************************************************************
// ФУНКЦИИ И ПРОЦЕДУРЫ
//****************************************************************

//****************************************************************
// Функция принимает число и возможный делитель.
// ВХОД:  Num - число
//        Del - возможный делитель
// ВЫХОД: TRUE - если Del является делителем числа Num
//****************************************************************
bool ThisDivider(unsigned short int Num, unsigned short int Del)
{
  if (Del == Num) return(false);
  return(0 == (Num % Del));
}     

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
int main(int argc, char *argv[])
{
  srand(time(0));            //Запустить генерацию случайных чисел
  N = rand() % USHRT_MAX;    //Получить случайное число
  
  Str.clear();
  
  cout << "N = " << N << endl;
  for(int i = 1; i <= N; i++)
  {
    if (ThisDivider(N, i))
    {      
      Str << i << ' ';
      Sum = Sum + i;
    }
  }
  
  //Вывести на экран
  cout << "Dividers : " << Str.str() << endl;
  cout << "Sum of the divisors = " << Sum << endl;     
  
  system("PAUSE");
  return EXIT_SUCCESS;
}