Răspuns:
program sumaDivProprii;
var num,d,suma:integer;
begin
write('introdu numar natural: '); read(num);
d:=2; suma:=0;
while d*d<num do
begin
if num mod d = 0 then suma:=suma+d+(num div d);
d:=d+1;
end;
if d*d=num then suma:=suma+d;
writeln('suma divizorilor proprii este ',suma);
end.
Explicație:
am folosit una din cele mai efective metode pentru gasirea divizorilor. Mai exista si altele, iata un exemplu:
for d:=2 to (n div 2) do
if num mod d=0 then suma:=suma+d;
