1) Nhập 1 số nguyên n. Tính tổng các ước số của n VD n = 30 tong uoc so = 72

program tong_uoc;

uses crt;

var n,i,t:integer;

begin

     clrscr;

     write(‘Nhap n: ‘);   readln(n);

     t:=0;

     for i:=1 to n do

          if n mod i=0 then t:=t+i;

     write(‘Tong cac uoc cua ‘,n,’ la: ‘,t);

     readln;

end.