kiểm tra tinh hoàn hảo của một số nguyên dương số hoàn hảo có tổng các ước nhỏ hơn bằng 9 nó ví dụ số 28 có tổng các ước là 1 2 4 7 14 = 28

uses crt;

var i, n, sum : integer;

begin

clrscr;

write('Nhap so n : '); readln(n);

sum := 0; for i := 1 to n - 1 do

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

if sum = n then write(n,' la so hoan hao')

else write(n,' khong la so hoan hao');

readln

end.

uses crt;
var n,i,tong:longint;
begin
    clrscr;
    readln(n);
    tong:=0;
    for i:=1 to n div 2 do
        if n mod i=0 then tong:=tong+i;
    if tong=n then write('TRUE') else write('FALSE');
    readln;
end.