Mostrar todos os divisores de um numero n e sua soma em pascal

Programação
#1

Iai galera, blz? Queria saber como faço para calcular a soma de todos os divisores de um numero n. Eu ja sei como mostrar todos os divisores:

Program Pzim ;
var
x,n,teste,t:integer;
Begin
writeln(‘Digite um número:’);
readln(n);
write(‘São divisores de’,’ ‘,n,’ :’);
for x:= 1 to n do
begin
teste:= n mod x;
if(teste=0)then

write(x,’,’);
end;

End.

Agr como faço para somar eles? Alguem pode me ajudar?

#2

Basta adicionar dentro do laço de repetição uma variável somando!

for x:= 1 to n do
  begin
    teste:= n mod x;
    if(teste=0)then
      write(x,’,’);
      soma := soma + x;
      writeln('Soma:',soma);
  end;
#3

vlw, deu certo !!!