Program SHH;
Uses crt;
Var n: longint;
Function SHH(a:longint):boolean;
Var i,s:longint;
Begin
           s:=0;
           For i:=1 to a div 2 do
                      If a mod i = 0 then s:=s+i;
           If a=s then exit(true);
                              exit(false);
End;
 
Begin
           Clrscr;
           Write('Nhap n: '); Readln(n);
           If SHH(n) then Write(n,' la so hoan hao')
           Else Write(n,' khong phai so hoan hao');
           Readln
End.