program ct;
uses crt;
var UocN: array [1..23230] of integer;
    N,i,i2,Sum: integer;

begin
    clrscr;
    writeln('Nhap N'); readln(N); //Nhap DL
    i2:=0; //Set bien i2
    for i:=1 to N do
        begin
        if ((N mod i) = 0) and (i <> 0) then   //Check i la Uoc cua N?, 
            begin               //neu dung thi them vao mang UocN
            i2:=i2+1;
            UocN[i2]:=i;
            end;
        end;
    Sum:=0; //Set bien sum
    for i:=1 to i2 do
        Sum:=Sum+UocN[i];
    writeln('Tong cac Uoc cua ',N,' la: ',Sum); //in bien Sum
    readln;
end.

______________

#Duahauvn

Python:

n=int(input('nhap N: '))
s=0
for i in range (1,n+1): #Tính cả N nhé, nếu không tính N thì chạy đến N là được
  if (n%i==0):
    s=s+i
print('tong cac uoc cua N:',s)

C++:

#include <iostream>

using namespace std;

int main() {
  long n,s=0;
  cout << "Nhap N: ";
  cin >> n;
  for (long i=1; i<=n; i++) //i<n nếu không tính n
  {
      if (n%i==0){
        s=s+i;
      }
  }
  cout << "Tong cac uoc cua N: "<<s;
}

**Nếu cần code C# hay Java thì nói để mình bổ sung

$\color{red}{\text{#Daoanhviet96}}$