Напишите программу, которая вычисляет сумму всех делителей заданного натурального числа n и находит все нечётные делители этой суммы. входные данные в первой строке входного файла input.txt содержится одно целое число n(1< =n<
=6*10в8степени) выходные данные в выходной файл output.txt вывести все нечётные делители в порядке возростания.

//pascalabc.net 3.2 сборка 1318 var   f: text;   n,sum,i: integer; begin assign(f,'input.txt'); reset(f); read(f,n); close(f); for i: =1 to n do   if n mod i=0 then sum: =sum+i; assign(f,'output.txt'); rewrite(f); for i: =1 to sum do   if (sum mod i=0) and (odd(i)) then write(f,inttostr(i)+' '); close(f); end. пример содержимого input.txt: 4 пример содержимого output.txt: 1 7

Рассматриваются значения массива с индексами от 1 до 3.
За некоторый максимум (max) мы взяли значение R[1] = 12.
Если просматриваемое значение больше максимума, то принимаем это значение как максимум.
Просмотрим все значения (от 1 до 3):
R[1] = 12 > max? 12 > 12? Условие не выполняется, значение максимума остаётся прежним.
R[2] = 34 > max? 34 > 12? Условие выполняется, максимум (max) становится равным R[2] = 34.
R[3] = -53 > max? -53 > 34? Условие не выполняется, значение максимума остаётся прежним.

Ответ: 34.

CD-ROM это устройство чтения информации с компакт-диска 

На паскале скажу:
var s,k: integer;
begin
s:=0;
for k:=3 to 10 do
s:=s+13;
write(s);
end.

s = 0
s =0+13 = 13
s=13
все)))

переведу на русский:
переменные s,k целые числа
начало программы
s = 0
k = от 3 до 10
s = 0+13
выводим s
конец программы

программа выводит ответ 13