Viết CT nhập vào số N (n>0).in ra màn hình tất cả các ước nguyên dương của N và tính tổng các ước đó

program tong_uoc;

uses crt;

var n,i,t:integer;

begin

      clrscr;

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

      write(‘Cac uoc cua ‘,n,’: ‘); 

      t:=0;

      for i:=1 to n do

            if n mod i=0 then

                  begin

                        write(i,’ ‘);

                        t:=t+i;

                  end;

      writeln;

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

      readln;

end.