1.
var a,b,i,j,s:integer;
begin
write('a='); readln(a);
write('b=');readln(b);
for i:=a to b do
 begin
  s:=1+i;
  for j:=2 to i div 2 do
    if i mod j=0 then s:=s+j;
  writeln('i=',i,'  s=',s);
 end;
end.

Пример работы программы:
a=5
b=10
i=5  s=6
i=6  s=12
i=7  s=8
i=8  s=15
i=9  s=13
i=10  s=18
------------
2.
var a,i,k:integer;
begin
write('a='); readln(a);
while a<>0 do 
 begin
 k:=2;
 for i:=2 to a div 2 do
  if a mod i=0 then k:=k+1;
 writeln(' k=',k);
 write('a='); readln(a);
 end;
end.

Пример работы программы:
a=5
 k=2
a=21
 k=4
a=6
 k=4
a=120
 k=16
a=0