Укажите задачу, которую решает приведенная ниже программа.

var i, n,s : longint;
begin
readln\(n\);
s := 0;
for i := 1 to n-1 do
if \(n mod i\) = 0 then s := s + i;
writeln\( 'S = ', s\);
end.

• Сумма всех делителей числа n, кроме самого числа.
• Сумма всех делителей числа n.
• Сумма чисел от 1 до n - 1.
• Сумма четных делителей числа n.