Что касается ошибок, то в условии сказано, что введенное число n находится в диапазоне [1; 1000], то есть, программа не должна высчитывать сумму, если пользователь ввел число, не входящее в этот диапазон. А вы вместо этого создали массив, с которым еще и вычисления проводите, хотя сами в него не занесли ни одного значения.
Вот правильный код:
var
n, sum: integer;
begin
write('Введите число: ');
readln(n);
if ((n >= 1) and (n
begin
for var i := 1 to n do
begin
if (n mod i = 0) then
sum := sum + i;
end;
write('Сумма всех натуральных чисел: ', sum);
end
else
write('Ошибка ввода! Число должно быть в диапазоне [1; 1000]');
end.
