Вычислить сумму натуральных чисел от 1 до N. Составить программу нахождения кол-ва делителей числа N (значение N вводится с клавиатуры)

program zz1;

var n, i, s, k:integer; / / вводим переменные целого типа

begin

write (' введите число '); / / вводим с клавиатуры число

read (n);

for i:=1 to n do / / организуем цикл, в котором переберем все числа от 1 до n

begin

s: = s + i; / / высчитываем сумму

if n mod i = 0 then k:=k + 1; / / считаем количество делителей

end;

writeln (' сумма чисел от 1 до n = ', s); / / выводим ответ

writeln (' количество делителей числа n = ', k);

end.