Держи!
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.