*Thuật toán:
B1: nhập n
B2: xét điều kiện i<=n div 2
B3: nếu n chia lấy dư i = 0 thì cộng dồn i vào sum
B4: nếu i>n div 2 thì đi đến B5, ngược lại quay lại B2
B5: in kết quả tổng ra màn hình
*Chương trình:
uses crt;
var n,i,sum:longint;
begin
clrscr;
readln(n);
for i:=1 to n div 2 do
if n mod i=0 then inc(sum,i);
write(sum);
readln;
end.