uses crt;

var i,n: integer;

function shh(n: integer): boolean;

var i,s: integer;

begin

s:=0;

for i:=1 to n-1 do

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

if s=n then shh:=true else shh:=false;

end;

begin

clrscr;

write ('nhap n: ');  readln (n);

i:=n;

writeln ('so hoan hao nho nhat lon hon ',n,': ');

while shh(i)=false do

begin

i:=i+1;

if shh(i) then writeln (i);

end;

readln;

end.

$#Trumtinhoc$

Chương trình:

#include<iostream>

using namespace std;

int main(){

int n,t=0;

cin>>n;

int j=n+1;

while(true){

for(int i=1;i<=j/2;i++){  //Vì ước lớn nhất của n có thể có là n/2

if(j%i==0){t+=i;}

}

if(t==j){

int so_hoan_hao = j;

break;

}else{

j++;

}

}

cout<<j;

}