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

Держи! 1) var i,n,result:integer; begin read(n); result:=0; for i:=1 to n do begin    result:=result+i; end; write(result); end. 2) var i,n,increase,result:integer; massive = array[1..1000] of integer;// ищем делители в диапазоне 1-1000 begin read(n); for i:=1 to 1000 do begin    if((n mod massive[i])=0) then    begin        increase:=increase + 1;    end; end; result:=increase; write(result); end.