Гадание на числах

Вика любит разные гадания. Некоторое время назад Вика узнала новый способ гадания на числах – для какого-нибудь интересующего ее натурального числа n надо посчитать сумму всех его делителей. Вика не дружит с арифметикой, и попросила вас написать программу, которая автоматизирует процесс гадания.

Входные данные

В единственной строке входного файла INPUT.TXT записано натуральное число n (n ≤ 1000), которое Маша была вынуждена сообщить.

Выходные данные

В выходной файл OUTPUT.TXT выведите сумму всех натуральных делителей числа n.

Примеры

№	INPUT.TXT	OUTPUT.TXT
1	6	12
2	10	18

Решение

var  j,i,n,m:integer;

       f,f1:text;

  begin

    assign(f,'input.txt');

    reset(f);

     read(f,i);

    n:=i;

    m:=0;

  for j:=1 to n do

   if i mod j=0 then m:=m+j;

    close(f);

    assign(f1,'output.txt');

     rewrite(f1);

     write(f1,m);

   close(f1);

  end.