Program Typlex271;
Uses crt;
Var n,u,i: longint;
Begin
Writeln('n='); Readln(n);
u:=0;
For i:=1 to (n div 2) do
If n mod i = 0 then u:=u+i;
If u=n then writeln(n,' la so hoan chinh')
else writeln(n,' khong phai la so hoan chinh');
Readln
End.
#Xin CTLHN, chúc bạn học tốt