Thuật toán:

B1: Nhập n

B2: tong←0; i←2;

B3: Nếu i > n div 2 thì in tong ra màn hình và kết thúc.

B4: Nếu n mod i=0 thì tong←tong+i;

B5: i←i+1; Quay lại B3.

Chương trình:

program bai_giai;
uses crt;
var n,i,tong:integer;
begin
    clrscr;
    write('Nhap n: ');  readln(n);
    tong:=0;
    for i:=2 to n div 2 do
        if n mod i=0 then tong:=tong+i;
    write(tong);
    readln;
end.

Thuật toán

B1: nhập n

B2: $p ← 2$

B3: $p\leq \dfrac n2$

B4: $n\vdots p\to$ xuất $p$

B5: $p ← p + 1$

B6: $p > \dfrac n2$ thì đến B7, ngược lại quay lại B3

B7: kết thúc

Chương trình

uses crt;
var n,p:longint;
begin
clrscr;
    readln(n);
    for p:=2 to n div 2 do
        if(n mod p = 0) then write(p,' ');
readln;
end.