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.