NẾU I > N  1, CHUYỂN XUỐNG BỚC 5

9. Thuật toán: Bớc 1. Đọc giá trị n. Bớc 2. S  0, i  2. Bớc 3. Nếu i > n  1, chuyển xuống bớc 5.Bớc 4. Nếu n chia hết cho i, S  S + i, i  i + 1 và quay lại bớc 3.Bớc 5. Ghi giá trị S và kết thúc thuật toán.Chơng trình có thể nh sau:

var n,i,S: integer;

begin

write('Cho so tu nhien n= '); readln(n);

i:=2; S:=0;

while i<=n-1 do

begin

if (n mod i)=0 then S:=S+i;

i:=i+1;

end;

write('Tong cac uoc so thuc su cua ',n,' la: ',S);

readln;

end.