program kiemtra;
uses crt;
var n,i,tong:integer;
begin
clrscr;
write('Nhap so n: '); 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(n,' la so hoan hao')
else write(n,' khong phai so hoan hao');
readln
end.